Developer CD Series 1996 May: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / NotInROM / +Files.lisp < prev next >
MacBinary | 1992-02-13 | 16.1 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu Feb 13 16:08:02 1992, modified Thu Feb 13 16:08:02 1992, creator Common Lisp 2, type ASCII, 15760 bytes "+Files.lisp" , at 0x3e10 442 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 2b 46 69 6c 65 73 | 2e 6c 69 73 70 00 00 00 |..+Files|.lisp...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 3d 90 00 | 00 01 ba a5 c0 8e b2 a5 |.....=..|........|
|00000060| c0 8e b2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b6 59 00 00 |........|.....Y..|
|00000080| 3b 3b 20 2d 2a 2d 20 70 | 61 63 6b 61 67 65 3a 20 |;; -*- p|ackage: |
|00000090| 4e 6f 74 49 6e 52 4f 4d | 20 2d 2a 2d 0d 3b 3b 3b |NotInROM| -*-.;;;|
|000000a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 0d 3b 3b 20 2b | 46 69 6c 65 73 2e 4c 69 |;;;.;; +|Files.Li|
|000000f0| 73 70 0d 3b 3b 0d 3b 3b | 20 43 6f 70 79 72 69 67 |sp.;;.;;| Copyrig|
|00000100| 68 74 20 a9 20 31 39 39 | 32 20 4e 6f 72 74 68 77 |ht . 199|2 Northw|
|00000110| 65 73 74 65 72 6e 20 55 | 6e 69 76 65 72 73 69 74 |estern U|niversit|
|00000120| 79 20 49 6e 73 74 69 74 | 75 74 65 20 66 6f 72 20 |y Instit|ute for |
|00000130| 74 68 65 20 4c 65 61 72 | 6e 69 6e 67 20 53 63 69 |the Lear|ning Sci|
|00000140| 65 6e 63 65 73 0d 3b 3b | 20 41 6c 6c 20 52 69 67 |ences.;;| All Rig|
|00000150| 68 74 73 20 52 65 73 65 | 72 76 65 64 0d 3b 3b 0d |hts Rese|rved.;;.|
|00000160| 3b 3b 20 61 75 74 68 6f | 72 3a 20 4d 69 63 68 61 |;; autho|r: Micha|
|00000170| 65 6c 20 53 2e 20 45 6e | 67 62 65 72 0d 3b 3b 20 |el S. En|gber.;; |
|00000180| 20 20 20 20 20 20 20 20 | 20 62 61 73 65 64 20 6f |        | based o|
|00000190| 6e 20 4d 41 43 4c 20 31 | 2e 33 32 20 77 72 69 74 |n MACL 1|.32 writ|
|000001a0| 74 65 6e 20 62 79 20 54 | 61 6d 61 72 20 4f 66 66 |ten by T|amar Off|
|000001b0| 65 72 0d 3b 3b 0d 3b 3b | 20 50 72 6f 76 69 64 65 |er.;;.;;| Provide|
|000001c0| 73 20 74 68 65 20 48 69 | 67 68 20 4c 65 76 65 6c |s the Hi|gh Level|
|000001d0| 20 22 4e 6f 74 20 69 6e | 20 52 4f 4d 22 20 46 69 | "Not in| ROM" Fi|
|000001e0| 6c 65 20 4d 61 6e 61 67 | 65 72 20 52 6f 75 74 69 |le Manag|er Routi|
|000001f0| 6e 65 73 0d 3b 3b 20 66 | 72 6f 6d 20 49 4d 20 49 |nes.;; f|rom IM I|
|00000200| 56 20 70 70 2e 31 30 36 | 2d 31 31 35 20 61 6e 64 |V pp.106|-115 and|
|00000210| 20 49 4d 20 56 49 20 70 | 70 2e 32 35 2e 33 34 2d | IM VI p|p.25.34-|
|00000220| 32 35 2e 33 37 20 28 61 | 6e 64 20 54 4e 23 32 31 |25.37 (a|nd TN#21|
|00000230| 38 29 0d 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |8).;;;;;|;;;;;;;;|
|00000240| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000250| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 0d 28 65 76 61 6c |;;;;;;;;|;..(eval|
|00000280| 2d 77 68 65 6e 20 28 3a | 63 6f 6d 70 69 6c 65 2d |-when (:|compile-|
|00000290| 74 6f 70 6c 65 76 65 6c | 20 3a 6c 6f 61 64 2d 74 |toplevel| :load-t|
|000002a0| 6f 70 6c 65 76 65 6c 20 | 3a 65 78 65 63 75 74 65 |oplevel |:execute|
|000002b0| 29 0d 20 20 28 72 65 71 | 75 69 72 65 20 20 20 20 |).  (req|uire    |
|000002c0| 3a 4e 6f 74 49 6e 52 4f | 4d 2d 75 29 0d 20 20 28 |:NotInRO|M-u).  (|
|000002d0| 69 6e 2d 70 61 63 6b 61 | 67 65 20 3a 4e 6f 74 49 |in-packa|ge :NotI|
|000002e0| 6e 52 4f 4d 29 29 0d 0d | 3b 3b 3b 3b 3b 3b 3b 3b |nROM))..|;;;;;;;;|
|000002f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000300| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000310| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000320| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 3b |;;;;;;;;|;;;;;;.;|
|00000330| 3b 3b 20 41 63 63 65 73 | 73 69 6e 67 20 56 6f 6c |;; Acces|sing Vol|
|00000340| 75 6d 65 73 20 2d 20 49 | 4d 20 49 56 20 70 70 2e |umes - I|M IV pp.|
|00000350| 20 31 30 37 2d 31 30 38 | 0d 0d 28 64 65 66 74 72 | 107-108|..(deftr|
|00000360| 61 70 2d 4e 6f 74 49 6e | 52 4f 4d 20 5f 47 65 74 |ap-NotIn|ROM _Get|
|00000370| 56 49 6e 66 6f 20 3a 4f | 53 45 72 72 20 28 28 64 |VInfo :O|SErr ((d|
|00000380| 72 76 4e 75 6d 20 3a 73 | 69 67 6e 65 64 2d 69 6e |rvNum :s|igned-in|
|00000390| 74 65 67 65 72 29 20 28 | 76 6f 6c 4e 61 6d 65 20 |teger) (|volName |
|000003a0| 28 3a 70 6f 69 6e 74 65 | 72 20 28 3a 73 74 72 69 |(:pointe|r (:stri|
|000003b0| 6e 67 20 32 35 35 29 29 | 29 20 28 76 52 65 66 4e |ng 255))|) (vRefN|
|000003c0| 75 6d 20 28 3a 70 6f 69 | 6e 74 65 72 20 3a 73 69 |um (:poi|nter :si|
|000003d0| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 29 20 28 |gned-int|eger)) (|
|000003e0| 66 72 65 65 42 79 74 65 | 73 20 28 3a 70 6f 69 6e |freeByte|s (:poin|
|000003f0| 74 65 72 20 3a 73 69 67 | 6e 65 64 2d 6c 6f 6e 67 |ter :sig|ned-long|
|00000400| 29 29 29 0d 20 20 28 72 | 6c 65 74 20 28 28 70 62 |))).  (r|let ((pb|
|00000410| 20 3a 48 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 | :HParam|BlockRec|
|00000420| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | .      |       :|
|00000430| 69 6f 4e 61 6d 65 50 74 | 72 20 20 76 6f 6c 4e 61 |ioNamePt|r  volNa|
|00000440| 6d 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |me.     |        |
|00000450| 3a 69 6f 56 52 65 66 4e | 75 6d 20 20 64 72 76 4e |:ioVRefN|um  drvN|
|00000460| 75 6d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |um.     |        |
|00000470| 3a 69 6f 56 6f 6c 49 6e | 64 65 78 20 30 29 29 0d |:ioVolIn|dex 0)).|
|00000480| 20 20 20 20 28 70 72 6f | 67 31 0d 20 20 20 20 20 |    (pro|g1.     |
|00000490| 20 28 23 5f 50 42 48 47 | 65 74 56 49 6e 66 6f 20 | (#_PBHG|etVInfo |
|000004a0| 70 62 29 0d 20 20 20 20 | 20 20 28 25 70 75 74 2d |pb).    |  (%put-|
|000004b0| 77 6f 72 64 20 76 52 65 | 66 4e 75 6d 20 28 70 72 |word vRe|fNum (pr|
|000004c0| 65 66 20 70 62 20 3a 48 | 50 61 72 61 6d 42 6c 6f |ef pb :H|ParamBlo|
|000004d0| 63 6b 52 65 63 2e 69 6f | 56 52 65 66 4e 75 6d 29 |ckRec.io|VRefNum)|
|000004e0| 29 0d 20 20 20 20 20 20 | 28 25 70 75 74 2d 6c 6f |).      |(%put-lo|
|000004f0| 6e 67 20 66 72 65 65 42 | 79 74 65 73 20 20 28 2a |ng freeB|ytes  (*|
|00000500| 20 28 70 72 65 66 20 70 | 62 20 3a 48 50 61 72 61 | (pref p|b :HPara|
|00000510| 6d 42 6c 6f 63 6b 52 65 | 63 2e 69 6f 56 41 6c 42 |mBlockRe|c.ioVAlB|
|00000520| 6c 6b 53 69 7a 29 0d 20 | 20 20 20 20 20 20 20 20 |lkSiz). |        |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000540| 20 20 20 20 20 20 28 6c | 6f 67 61 6e 64 20 23 78 |      (l|ogand #x|
|00000550| 46 46 46 46 20 28 70 72 | 65 66 20 70 62 20 3a 48 |FFFF (pr|ef pb :H|
|00000560| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 2e 69 6f |ParamBlo|ckRec.io|
|00000570| 56 46 72 42 6c 6b 29 29 | 29 29 29 29 29 0d 0d 28 |VFrBlk))|)))))..(|
|00000580| 64 65 66 74 72 61 70 2d | 4e 6f 74 49 6e 52 4f 4d |deftrap-|NotInROM|
|00000590| 20 5f 47 65 74 56 52 65 | 66 4e 75 6d 20 3a 4f 53 | _GetVRe|fNum :OS|
|000005a0| 45 72 72 20 28 28 66 69 | 6c 65 52 65 66 4e 75 6d |Err ((fi|leRefNum|
|000005b0| 20 3a 73 69 67 6e 65 64 | 2d 69 6e 74 65 67 65 72 | :signed|-integer|
|000005c0| 29 20 28 76 52 65 66 4e | 75 6d 20 28 3a 70 6f 69 |) (vRefN|um (:poi|
|000005d0| 6e 74 65 72 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |nter :si|gned-int|
|000005e0| 65 67 65 72 29 29 29 0d | 20 20 28 72 6c 65 74 20 |eger))).|  (rlet |
|000005f0| 28 28 70 62 20 3a 46 43 | 42 50 42 52 65 63 0d 20 |((pb :FC|BPBRec. |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 4e |        |    :ioN|
|00000610| 61 6d 65 50 74 72 20 28 | 25 6e 75 6c 6c 2d 70 74 |amePtr (|%null-pt|
|00000620| 72 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r).     |        |
|00000630| 3a 69 6f 56 52 65 66 4e | 75 6d 20 30 0d 20 20 20 |:ioVRefN|um 0.   |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 52 65 66 |        |  :ioRef|
|00000650| 4e 75 6d 20 20 66 69 6c | 65 52 65 66 4e 75 6d 0d |Num  fil|eRefNum.|
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f |        |     :io|
|00000670| 46 43 42 49 6e 64 78 20 | 30 29 29 0d 20 20 20 20 |FCBIndx |0)).    |
|00000680| 28 70 72 6f 67 31 0d 20 | 20 20 20 20 20 28 23 5f |(prog1. |     (#_|
|00000690| 50 42 47 65 74 46 43 42 | 49 6e 66 6f 20 70 62 29 |PBGetFCB|Info pb)|
|000006a0| 0d 20 20 20 20 20 20 28 | 25 70 75 74 2d 77 6f 72 |.      (|%put-wor|
|000006b0| 64 20 76 52 65 66 4e 75 | 6d 20 28 70 72 65 66 20 |d vRefNu|m (pref |
|000006c0| 70 62 20 3a 46 43 42 50 | 42 52 65 63 2e 69 6f 46 |pb :FCBP|BRec.ioF|
|000006d0| 43 42 56 52 65 66 4e 75 | 6d 29 29 29 29 29 0d 0d |CBVRefNu|m)))))..|
|000006e0| 28 64 65 66 74 72 61 70 | 2d 4e 6f 74 49 6e 52 4f |(deftrap|-NotInRO|
|000006f0| 4d 20 5f 47 65 74 56 6f | 6c 20 3a 4f 53 45 72 72 |M _GetVo|l :OSErr|
|00000700| 20 28 28 76 6f 6c 4e 61 | 6d 65 20 28 3a 70 6f 69 | ((volNa|me (:poi|
|00000710| 6e 74 65 72 20 28 3a 73 | 74 72 69 6e 67 20 32 35 |nter (:s|tring 25|
|00000720| 35 29 29 29 20 28 76 52 | 65 66 4e 75 6d 20 28 3a |5))) (vR|efNum (:|
|00000730| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00000740| 69 6e 74 65 67 65 72 29 | 29 29 0d 20 20 28 72 6c |integer)|)).  (rl|
|00000750| 65 74 20 28 28 70 62 20 | 3a 50 61 72 61 6d 42 6c |et ((pb |:ParamBl|
|00000760| 6f 63 6b 52 65 63 0d 20 | 20 20 20 20 20 20 20 20 |ockRec. |        |
|00000770| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 76 |    :ioN|amePtr v|
|00000780| 6f 6c 4e 61 6d 65 29 29 | 0d 20 20 20 20 28 70 72 |olName))|.    (pr|
|00000790| 6f 67 31 0d 20 20 20 20 | 20 20 28 23 5f 50 42 47 |og1.    |  (#_PBG|
|000007a0| 65 74 56 6f 6c 20 70 62 | 29 0d 20 20 20 20 20 20 |etVol pb|).      |
|000007b0| 28 25 70 75 74 2d 77 6f | 72 64 20 76 52 65 66 4e |(%put-wo|rd vRefN|
|000007c0| 75 6d 20 28 70 72 65 66 | 20 70 62 20 3a 50 61 72 |um (pref| pb :Par|
|000007d0| 61 6d 42 6c 6f 63 6b 52 | 65 63 2e 69 6f 56 52 65 |amBlockR|ec.ioVRe|
|000007e0| 66 4e 75 6d 29 29 29 29 | 29 0d 0d 28 64 65 66 74 |fNum))))|)..(deft|
|000007f0| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 5f 53 65 |rap-NotI|nROM _Se|
|00000800| 74 56 6f 6c 20 3a 4f 53 | 45 72 72 20 28 28 76 6f |tVol :OS|Err ((vo|
|00000810| 6c 4e 61 6d 65 20 28 3a | 70 6f 69 6e 74 65 72 20 |lName (:|pointer |
|00000820| 28 3a 73 74 72 69 6e 67 | 20 32 35 35 29 29 29 20 |(:string| 255))) |
|00000830| 28 76 52 65 66 4e 75 6d | 20 3a 73 69 67 6e 65 64 |(vRefNum| :signed|
|00000840| 2d 69 6e 74 65 67 65 72 | 29 29 0d 20 20 28 72 6c |-integer|)).  (rl|
|00000850| 65 74 20 28 28 70 62 20 | 3a 50 61 72 61 6d 42 6c |et ((pb |:ParamBl|
|00000860| 6f 63 6b 52 65 63 0d 20 | 20 20 20 20 20 20 20 20 |ockRec. |        |
|00000870| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 76 |    :ioN|amePtr v|
|00000880| 6f 6c 4e 61 6d 65 0d 20 | 20 20 20 20 20 20 20 20 |olName. |        |
|00000890| 20 20 20 20 3a 69 6f 56 | 52 65 66 4e 75 6d 20 76 |    :ioV|RefNum v|
|000008a0| 52 65 66 4e 75 6d 29 29 | 0d 20 20 20 20 28 23 5f |RefNum))|.    (#_|
|000008b0| 50 42 53 65 74 56 6f 6c | 20 70 62 29 29 29 0d 0d |PBSetVol| pb)))..|
|000008c0| 28 64 65 66 74 72 61 70 | 2d 4e 6f 74 49 6e 52 4f |(deftrap|-NotInRO|
|000008d0| 4d 20 5f 46 6c 75 73 68 | 56 6f 6c 20 3a 4f 53 45 |M _Flush|Vol :OSE|
|000008e0| 72 72 20 28 28 76 6f 6c | 4e 61 6d 65 20 28 3a 70 |rr ((vol|Name (:p|
|000008f0| 6f 69 6e 74 65 72 20 28 | 3a 73 74 72 69 6e 67 20 |ointer (|:string |
|00000900| 32 35 35 29 29 29 20 28 | 76 52 65 66 4e 75 6d 20 |255))) (|vRefNum |
|00000910| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00000920| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |).  (rle|t ((pb :|
|00000930| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 0d 20 20 |ParamBlo|ckRec.  |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4e 61 |        |   :ioNa|
|00000950| 6d 65 50 74 72 20 76 6f | 6c 4e 61 6d 65 0d 20 20 |mePtr vo|lName.  |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 56 52 |        |   :ioVR|
|00000970| 65 66 4e 75 6d 20 76 52 | 65 66 4e 75 6d 29 29 0d |efNum vR|efNum)).|
|00000980| 20 20 20 20 28 23 5f 50 | 42 46 6c 75 73 68 56 6f |    (#_P|BFlushVo|
|00000990| 6c 20 70 62 29 29 29 0d | 0d 28 64 65 66 74 72 61 |l pb))).|.(deftra|
|000009a0| 70 2d 4e 6f 74 49 6e 52 | 4f 4d 20 5f 55 6e 6d 6f |p-NotInR|OM _Unmo|
|000009b0| 75 6e 74 56 6f 6c 20 3a | 4f 53 45 72 72 20 28 28 |untVol :|OSErr ((|
|000009c0| 76 6f 6c 4e 61 6d 65 20 | 28 3a 70 6f 69 6e 74 65 |volName |(:pointe|
|000009d0| 72 20 28 3a 73 74 72 69 | 6e 67 20 32 35 35 29 29 |r (:stri|ng 255))|
|000009e0| 29 20 28 76 52 65 66 4e | 75 6d 20 3a 73 69 67 6e |) (vRefN|um :sign|
|000009f0| 65 64 2d 69 6e 74 65 67 | 65 72 29 29 0d 20 20 28 |ed-integ|er)).  (|
|00000a00| 72 6c 65 74 20 28 28 70 | 62 20 3a 50 61 72 61 6d |rlet ((p|b :Param|
|00000a10| 42 6c 6f 63 6b 52 65 63 | 0d 20 20 20 20 20 20 20 |BlockRec|.       |
|00000a20| 20 20 20 20 20 20 3a 69 | 6f 4e 61 6d 65 50 74 72 |      :i|oNamePtr|
|00000a30| 20 76 6f 6c 4e 61 6d 65 | 0d 20 20 20 20 20 20 20 | volName|.       |
|00000a40| 20 20 20 20 20 20 3a 69 | 6f 56 52 65 66 4e 75 6d |      :i|oVRefNum|
|00000a50| 20 76 52 65 66 4e 75 6d | 29 29 0d 20 20 20 20 28 | vRefNum|)).    (|
|00000a60| 23 5f 50 42 55 6e 6d 6f | 75 6e 74 56 6f 6c 20 70 |#_PBUnmo|untVol p|
|00000a70| 62 29 29 29 0d 0d 28 64 | 65 66 74 72 61 70 2d 4e |b)))..(d|eftrap-N|
|00000a80| 6f 74 49 6e 52 4f 4d 20 | 5f 4f 66 66 4c 69 6e 65 |otInROM |_OffLine|
|00000a90| 20 3a 4f 53 45 72 72 20 | 28 28 76 6f 6c 4e 61 6d | :OSErr |((volNam|
|00000aa0| 65 20 28 3a 70 6f 69 6e | 74 65 72 20 28 3a 73 74 |e (:poin|ter (:st|
|00000ab0| 72 69 6e 67 20 32 35 35 | 29 29 29 20 28 76 52 65 |ring 255|))) (vRe|
|00000ac0| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|00000ad0| 65 67 65 72 29 29 0d 20 | 20 28 72 6c 65 74 20 28 |eger)). | (rlet (|
|00000ae0| 28 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |(pb :Par|amBlockR|
|00000af0| 65 63 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec.     |        |
|00000b00| 3a 69 6f 4e 61 6d 65 50 | 74 72 20 76 6f 6c 4e 61 |:ioNameP|tr volNa|
|00000b10| 6d 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |me.     |        |
|00000b20| 3a 69 6f 56 52 65 66 4e | 75 6d 20 76 52 65 66 4e |:ioVRefN|um vRefN|
|00000b30| 75 6d 29 29 0d 20 20 20 | 20 28 23 5f 50 42 4f 66 |um)).   | (#_PBOf|
|00000b40| 66 4c 69 6e 65 20 70 62 | 29 29 29 0d 0d 28 64 65 |fLine pb|)))..(de|
|00000b50| 66 74 72 61 70 2d 4e 6f | 74 49 6e 52 4f 4d 20 5f |ftrap-No|tInROM _|
|00000b60| 45 6a 65 63 74 20 3a 4f | 53 45 72 72 20 28 28 76 |Eject :O|SErr ((v|
|00000b70| 6f 6c 4e 61 6d 65 20 28 | 3a 70 6f 69 6e 74 65 72 |olName (|:pointer|
|00000b80| 20 28 3a 73 74 72 69 6e | 67 20 32 35 35 29 29 29 | (:strin|g 255)))|
|00000b90| 20 28 76 52 65 66 4e 75 | 6d 20 3a 73 69 67 6e 65 | (vRefNu|m :signe|
|00000ba0| 64 2d 69 6e 74 65 67 65 | 72 29 29 0d 20 20 28 72 |d-intege|r)).  (r|
|00000bb0| 6c 65 74 20 28 28 70 62 | 20 3a 50 61 72 61 6d 42 |let ((pb| :ParamB|
|00000bc0| 6c 6f 63 6b 52 65 63 0d | 20 20 20 20 20 20 20 20 |lockRec.|        |
|00000bd0| 20 20 20 20 20 3a 69 6f | 4e 61 6d 65 50 74 72 20 |     :io|NamePtr |
|00000be0| 76 6f 6c 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |volName.|        |
|00000bf0| 20 20 20 20 20 3a 69 6f | 56 52 65 66 4e 75 6d 20 |     :io|VRefNum |
|00000c00| 76 52 65 66 4e 75 6d 29 | 29 0d 20 20 20 20 28 23 |vRefNum)|).    (#|
|00000c10| 5f 50 42 45 6a 65 63 74 | 20 70 62 29 29 29 0d 0d |_PBEject| pb)))..|
|00000c20| 0d 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.;;;;;;;|;;;;;;;;|
|00000c30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c40| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c60| 3b 3b 3b 3b 3b 3b 3b 0d | 3b 3b 3b 20 41 63 63 65 |;;;;;;;.|;;; Acce|
|00000c70| 73 73 69 6e 67 20 46 69 | 6c 65 73 20 2d 20 49 4d |ssing Fi|les - IM|
|00000c80| 20 49 56 20 70 70 2e 20 | 31 30 39 2d 31 31 32 0d | IV pp. |109-112.|
|00000c90| 0d 28 64 65 66 74 72 61 | 70 2d 4e 6f 74 49 6e 52 |.(deftra|p-NotInR|
|00000ca0| 4f 4d 20 5f 46 53 4f 70 | 65 6e 20 3a 4f 53 45 72 |OM _FSOp|en :OSEr|
|00000cb0| 72 20 28 28 66 69 6c 65 | 4e 61 6d 65 20 28 3a 73 |r ((file|Name (:s|
|00000cc0| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 76 52 65 |tring 25|5)) (vRe|
|00000cd0| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|00000ce0| 65 67 65 72 29 20 28 72 | 65 66 4e 75 6d 20 28 3a |eger) (r|efNum (:|
|00000cf0| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00000d00| 69 6e 74 65 67 65 72 29 | 29 29 0d 20 20 28 72 6c |integer)|)).  (rl|
|00000d10| 65 74 20 28 28 70 62 20 | 3a 50 61 72 61 6d 42 6c |et ((pb |:ParamBl|
|00000d20| 6f 63 6b 52 65 63 20 0d | 20 20 20 20 20 20 20 20 |ockRec .|        |
|00000d30| 20 20 20 20 20 3a 69 6f | 4e 61 6d 65 50 74 72 20 |     :io|NamePtr |
|00000d40| 66 69 6c 65 4e 61 6d 65 | 0d 20 20 20 20 20 20 20 |fileName|.       |
|00000d50| 20 20 20 20 20 20 3a 69 | 6f 56 52 65 66 4e 75 6d |      :i|oVRefNum|
|00000d60| 20 76 52 65 66 4e 75 6d | 0d 20 20 20 20 20 20 20 | vRefNum|.       |
|00000d70| 20 20 20 20 20 20 3a 69 | 6f 56 65 72 73 4e 75 6d |      :i|oVersNum|
|00000d80| 20 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0.     |        |
|00000d90| 3a 69 6f 50 65 72 6d 73 | 73 6e 20 23 24 66 73 43 |:ioPerms|sn #$fsC|
|00000da0| 75 72 50 65 72 6d 0d 20 | 20 20 20 20 20 20 20 20 |urPerm. |        |
|00000db0| 20 20 20 20 3a 69 6f 4d | 69 73 63 20 28 25 6e 75 |    :ioM|isc (%nu|
|00000dc0| 6c 6c 2d 70 74 72 29 29 | 29 0d 20 20 20 20 28 70 |ll-ptr))|).    (p|
|00000dd0| 72 6f 67 31 0d 20 20 20 | 20 20 20 28 23 5f 50 42 |rog1.   |   (#_PB|
|00000de0| 4f 70 65 6e 20 70 62 29 | 0d 20 20 20 20 20 20 28 |Open pb)|.      (|
|00000df0| 25 70 75 74 2d 77 6f 72 | 64 20 72 65 66 4e 75 6d |%put-wor|d refNum|
|00000e00| 20 28 70 72 65 66 20 70 | 62 20 3a 50 61 72 61 6d | (pref p|b :Param|
|00000e10| 42 6c 6f 63 6b 52 65 63 | 2e 69 6f 52 65 66 4e 75 |BlockRec|.ioRefNu|
|00000e20| 6d 29 29 29 29 29 0d 0d | 28 64 65 66 74 72 61 70 |m)))))..|(deftrap|
|00000e30| 2d 4e 6f 74 49 6e 52 4f | 4d 20 5f 4f 70 65 6e 52 |-NotInRO|M _OpenR|
|00000e40| 46 20 3a 4f 53 45 72 72 | 20 28 28 66 69 6c 65 4e |F :OSErr| ((fileN|
|00000e50| 61 6d 65 20 28 3a 73 74 | 72 69 6e 67 20 32 35 35 |ame (:st|ring 255|
|00000e60| 29 29 20 28 76 52 65 66 | 4e 75 6d 20 3a 73 69 67 |)) (vRef|Num :sig|
|00000e70| 6e 65 64 2d 69 6e 74 65 | 67 65 72 29 20 28 72 65 |ned-inte|ger) (re|
|00000e80| 66 4e 75 6d 20 28 3a 70 | 6f 69 6e 74 65 72 20 3a |fNum (:p|ointer :|
|00000e90| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 29 |signed-i|nteger))|
|00000ea0| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |).  (rle|t ((pb :|
|00000eb0| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 20 0d 20 |ParamBlo|ckRec . |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 4e |        |    :ioN|
|00000ed0| 61 6d 65 50 74 72 20 66 | 69 6c 65 4e 61 6d 65 0d |amePtr f|ileName.|
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f |        |     :io|
|00000ef0| 56 52 65 66 4e 75 6d 20 | 76 52 65 66 4e 75 6d 0d |VRefNum |vRefNum.|
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f |        |     :io|
|00000f10| 56 65 72 73 4e 75 6d 20 | 30 0d 20 20 20 20 20 20 |VersNum |0.      |
|00000f20| 20 20 20 20 20 20 20 3a | 69 6f 50 65 72 6d 73 73 |       :|ioPermss|
|00000f30| 6e 20 23 24 66 73 43 75 | 72 50 65 72 6d 0d 20 20 |n #$fsCu|rPerm.  |
|00000f40| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4d 69 |        |   :ioMi|
|00000f50| 73 63 20 28 25 6e 75 6c | 6c 2d 70 74 72 29 29 29 |sc (%nul|l-ptr)))|
|00000f60| 0d 20 20 20 20 28 70 72 | 6f 67 31 0d 20 20 20 20 |.    (pr|og1.    |
|00000f70| 20 20 28 23 5f 50 42 4f | 70 65 6e 52 46 20 70 62 |  (#_PBO|penRF pb|
|00000f80| 29 0d 20 20 20 20 20 20 | 28 25 70 75 74 2d 77 6f |).      |(%put-wo|
|00000f90| 72 64 20 72 65 66 4e 75 | 6d 20 28 70 72 65 66 20 |rd refNu|m (pref |
|00000fa0| 70 62 20 3a 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |pb :Para|mBlockRe|
|00000fb0| 63 2e 69 6f 52 65 66 4e | 75 6d 29 29 29 29 29 0d |c.ioRefN|um))))).|
|00000fc0| 0d 3b 3b 5f 46 53 52 65 | 61 64 20 20 64 65 66 69 |.;;_FSRe|ad  defi|
|00000fd0| 6e 65 64 20 69 6e 20 2b | 44 65 76 69 63 65 73 2e |ned in +|Devices.|
|00000fe0| 6c 69 73 70 0d 0d 3b 3b | 5f 46 53 57 72 69 74 65 |lisp..;;|_FSWrite|
|00000ff0| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 2b 44 65 76 | defined| in +Dev|
|00001000| 69 63 65 73 2e 6c 69 73 | 70 0d 0d 28 64 65 66 74 |ices.lis|p..(deft|
|00001010| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 5f 47 65 |rap-NotI|nROM _Ge|
|00001020| 74 46 50 6f 73 20 3a 4f | 53 45 72 72 20 28 28 72 |tFPos :O|SErr ((r|
|00001030| 65 66 4e 75 6d 20 3a 73 | 69 67 6e 65 64 2d 69 6e |efNum :s|igned-in|
|00001040| 74 65 67 65 72 29 20 28 | 66 69 6c 65 50 6f 73 20 |teger) (|filePos |
|00001050| 28 3a 70 6f 69 6e 74 65 | 72 20 3a 73 69 67 6e 65 |(:pointe|r :signe|
|00001060| 64 2d 6c 6f 6e 67 29 29 | 29 0d 20 20 28 72 6c 65 |d-long))|).  (rle|
|00001070| 74 20 28 28 70 62 20 3a | 50 61 72 61 6d 42 6c 6f |t ((pb :|ParamBlo|
|00001080| 63 6b 52 65 63 0d 20 20 | 20 20 20 20 20 20 20 20 |ckRec.  |        |
|00001090| 20 20 20 3a 69 6f 52 65 | 66 4e 75 6d 20 72 65 66 |   :ioRe|fNum ref|
|000010a0| 4e 75 6d 29 29 0d 20 20 | 20 20 28 70 72 6f 67 31 |Num)).  |  (prog1|
|000010b0| 0d 20 20 20 20 20 20 28 | 23 5f 50 42 47 65 74 46 |.      (|#_PBGetF|
|000010c0| 50 6f 73 20 70 62 29 0d | 20 20 20 20 20 20 28 25 |Pos pb).|      (%|
|000010d0| 70 75 74 2d 6c 6f 6e 67 | 20 66 69 6c 65 50 6f 73 |put-long| filePos|
|000010e0| 20 28 70 72 65 66 20 70 | 62 20 3a 50 61 72 61 6d | (pref p|b :Param|
|000010f0| 42 6c 6f 63 6b 52 65 63 | 2e 69 6f 50 6f 73 4f 66 |BlockRec|.ioPosOf|
|00001100| 66 73 65 74 29 29 29 29 | 29 0d 0d 28 64 65 66 74 |fset))))|)..(deft|
|00001110| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 5f 53 65 |rap-NotI|nROM _Se|
|00001120| 74 46 50 6f 73 20 3a 4f | 53 45 72 72 20 28 28 72 |tFPos :O|SErr ((r|
|00001130| 65 66 4e 75 6d 20 3a 73 | 69 67 6e 65 64 2d 69 6e |efNum :s|igned-in|
|00001140| 74 65 67 65 72 29 20 28 | 70 6f 73 4d 6f 64 65 20 |teger) (|posMode |
|00001150| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00001160| 20 28 70 6f 73 4f 66 66 | 20 3a 73 69 67 6e 65 64 | (posOff| :signed|
|00001170| 2d 6c 6f 6e 67 29 29 0d | 20 20 28 72 6c 65 74 20 |-long)).|  (rlet |
|00001180| 28 28 70 62 20 3a 50 61 | 72 61 6d 42 6c 6f 63 6b |((pb :Pa|ramBlock|
|00001190| 52 65 63 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Rec.    |        |
|000011a0| 20 3a 69 6f 52 65 66 4e | 75 6d 20 20 20 20 72 65 | :ioRefN|um    re|
|000011b0| 66 4e 75 6d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |fNum.   |        |
|000011c0| 20 20 3a 69 6f 50 6f 73 | 4d 6f 64 65 20 20 20 70 |  :ioPos|Mode   p|
|000011d0| 6f 73 4d 6f 64 65 0d 20 | 20 20 20 20 20 20 20 20 |osMode. |        |
|000011e0| 20 20 20 20 3a 69 6f 50 | 6f 73 4f 66 66 73 65 74 |    :ioP|osOffset|
|000011f0| 20 70 6f 73 4f 66 66 29 | 29 0d 20 20 20 20 28 23 | posOff)|).    (#|
|00001200| 5f 50 42 53 65 74 46 50 | 6f 73 20 70 62 29 29 29 |_PBSetFP|os pb)))|
|00001210| 0d 0d 28 64 65 66 74 72 | 61 70 2d 4e 6f 74 49 6e |..(deftr|ap-NotIn|
|00001220| 52 4f 4d 20 5f 47 65 74 | 45 4f 46 20 3a 4f 53 45 |ROM _Get|EOF :OSE|
|00001230| 72 72 20 28 28 72 65 66 | 4e 75 6d 20 3a 73 69 67 |rr ((ref|Num :sig|
|00001240| 6e 65 64 2d 69 6e 74 65 | 67 65 72 29 20 28 6c 6f |ned-inte|ger) (lo|
|00001250| 67 45 4f 46 20 28 3a 70 | 6f 69 6e 74 65 72 20 3a |gEOF (:p|ointer :|
|00001260| 73 69 67 6e 65 64 2d 6c | 6f 6e 67 29 29 29 0d 20 |signed-l|ong))). |
|00001270| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 50 61 72 | (rlet (|(pb :Par|
|00001280| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec.     |
|00001290| 20 20 20 20 20 20 20 20 | 3a 69 6f 52 65 66 4e 75 |        |:ioRefNu|
|000012a0| 6d 20 72 65 66 4e 75 6d | 29 29 0d 20 20 20 20 28 |m refNum|)).    (|
|000012b0| 70 72 6f 67 31 0d 20 20 | 20 20 20 20 28 23 5f 50 |prog1.  |    (#_P|
|000012c0| 42 47 65 74 45 4f 46 20 | 70 62 29 0d 20 20 20 20 |BGetEOF |pb).    |
|000012d0| 20 20 28 25 70 75 74 2d | 6c 6f 6e 67 20 6c 6f 67 |  (%put-|long log|
|000012e0| 45 4f 46 20 28 25 70 74 | 72 2d 74 6f 2d 69 6e 74 |EOF (%pt|r-to-int|
|000012f0| 20 28 70 72 65 66 20 70 | 62 20 3a 50 61 72 61 6d | (pref p|b :Param|
|00001300| 42 6c 6f 63 6b 52 65 63 | 2e 69 6f 4d 69 73 63 29 |BlockRec|.ioMisc)|
|00001310| 29 29 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 2d |)))))..(|deftrap-|
|00001320| 4e 6f 74 49 6e 52 4f 4d | 20 5f 53 65 74 45 4f 46 |NotInROM| _SetEOF|
|00001330| 20 3a 4f 53 45 72 72 20 | 28 28 72 65 66 4e 75 6d | :OSErr |((refNum|
|00001340| 20 3a 73 69 67 6e 65 64 | 2d 69 6e 74 65 67 65 72 | :signed|-integer|
|00001350| 29 20 28 6c 6f 67 45 4f | 46 20 3a 73 69 67 6e 65 |) (logEO|F :signe|
|00001360| 64 2d 6c 6f 6e 67 29 29 | 0d 20 20 28 72 6c 65 74 |d-long))|.  (rlet|
|00001370| 20 28 28 70 62 20 3a 50 | 61 72 61 6d 42 6c 6f 63 | ((pb :P|aramBloc|
|00001380| 6b 52 65 63 0d 20 20 20 | 20 20 20 20 20 20 20 20 |kRec.   |        |
|00001390| 20 20 3a 69 6f 52 65 66 | 4e 75 6d 20 72 65 66 4e |  :ioRef|Num refN|
|000013a0| 75 6d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |um.     |        |
|000013b0| 3a 69 6f 4d 69 73 63 20 | 28 25 69 6e 74 2d 74 6f |:ioMisc |(%int-to|
|000013c0| 2d 70 74 72 20 6c 6f 67 | 45 4f 46 29 29 29 0d 20 |-ptr log|EOF))). |
|000013d0| 20 20 20 28 23 5f 50 42 | 53 65 74 45 4f 46 20 70 |   (#_PB|SetEOF p|
|000013e0| 62 29 29 29 0d 0d 28 64 | 65 66 74 72 61 70 2d 4e |b)))..(d|eftrap-N|
|000013f0| 6f 74 49 6e 52 4f 4d 20 | 5f 41 6c 6c 6f 63 61 74 |otInROM |_Allocat|
|00001400| 65 20 3a 4f 53 45 72 72 | 20 28 28 72 65 66 4e 75 |e :OSErr| ((refNu|
|00001410| 6d 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |m :signe|d-intege|
|00001420| 72 29 20 28 63 6f 75 6e | 74 20 28 3a 70 6f 69 6e |r) (coun|t (:poin|
|00001430| 74 65 72 20 3a 73 69 67 | 6e 65 64 2d 6c 6f 6e 67 |ter :sig|ned-long|
|00001440| 29 29 29 0d 20 20 28 72 | 6c 65 74 20 28 28 70 62 |))).  (r|let ((pb|
|00001450| 20 3a 50 61 72 61 6d 42 | 6c 6f 63 6b 52 65 63 0d | :ParamB|lockRec.|
|00001460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f |        |     :io|
|00001470| 52 65 66 4e 75 6d 20 72 | 65 66 4e 75 6d 0d 20 20 |RefNum r|efNum.  |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 52 65 |        |   :ioRe|
|00001490| 71 43 6f 75 6e 74 20 28 | 25 67 65 74 2d 73 69 67 |qCount (|%get-sig|
|000014a0| 6e 65 64 2d 6c 6f 6e 67 | 20 63 6f 75 6e 74 29 29 |ned-long| count))|
|000014b0| 29 0d 20 20 20 20 28 70 | 72 6f 67 31 0d 20 20 20 |).    (p|rog1.   |
|000014c0| 20 20 20 28 23 5f 50 42 | 41 6c 6c 6f 63 61 74 65 |   (#_PB|Allocate|
|000014d0| 20 70 62 29 0d 20 20 20 | 20 20 20 28 25 70 75 74 | pb).   |   (%put|
|000014e0| 2d 6c 6f 6e 67 20 63 6f | 75 6e 74 20 28 70 72 65 |-long co|unt (pre|
|000014f0| 66 20 70 62 20 3a 50 61 | 72 61 6d 42 6c 6f 63 6b |f pb :Pa|ramBlock|
|00001500| 52 65 63 2e 69 6f 41 63 | 74 43 6f 75 6e 74 29 29 |Rec.ioAc|tCount))|
|00001510| 29 29 29 0d 0d 28 64 65 | 66 74 72 61 70 2d 4e 6f |)))..(de|ftrap-No|
|00001520| 74 49 6e 52 4f 4d 20 5f | 46 53 43 6c 6f 73 65 20 |tInROM _|FSClose |
|00001530| 3a 4f 53 45 72 72 20 28 | 28 72 65 66 4e 75 6d 20 |:OSErr (|(refNum |
|00001540| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00001550| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |).  (rle|t ((pb :|
|00001560| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 0d 20 20 |ParamBlo|ckRec.  |
|00001570| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 52 65 |        |   :ioRe|
|00001580| 66 4e 75 6d 20 72 65 66 | 4e 75 6d 29 29 0d 20 20 |fNum ref|Num)).  |
|00001590| 20 20 28 23 5f 50 42 46 | 6c 75 73 68 46 69 6c 65 |  (#_PBF|lushFile|
|000015a0| 20 70 62 29 0d 20 20 20 | 20 28 23 5f 50 42 43 6c | pb).   | (#_PBCl|
|000015b0| 6f 73 65 20 70 62 29 29 | 29 0d 0d 3b 3b 3b 3b 3b |ose pb))|)..;;;;;|
|000015c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001600| 3b 0d 3b 3b 3b 20 43 72 | 65 61 74 69 6e 67 20 61 |;.;;; Cr|eating a|
|00001610| 6e 64 20 44 65 6c 65 74 | 69 6e 67 20 46 69 6c 65 |nd Delet|ing File|
|00001620| 73 20 2d 20 49 4d 20 49 | 56 20 70 70 2e 20 31 31 |s - IM I|V pp. 11|
|00001630| 32 2d 31 31 33 0d 0d 28 | 64 65 66 74 72 61 70 2d |2-113..(|deftrap-|
|00001640| 4e 6f 74 49 6e 52 4f 4d | 20 5f 43 72 65 61 74 65 |NotInROM| _Create|
|00001650| 20 3a 4f 53 45 72 72 20 | 28 28 66 69 6c 65 4e 61 | :OSErr |((fileNa|
|00001660| 6d 65 20 28 3a 73 74 72 | 69 6e 67 20 32 35 35 29 |me (:str|ing 255)|
|00001670| 29 20 28 76 52 65 66 4e | 75 6d 20 3a 73 69 67 6e |) (vRefN|um :sign|
|00001680| 65 64 2d 69 6e 74 65 67 | 65 72 29 20 28 63 72 65 |ed-integ|er) (cre|
|00001690| 61 74 6f 72 20 3a 6f 73 | 74 79 70 65 29 20 28 66 |ator :os|type) (f|
|000016a0| 69 6c 65 54 79 70 65 20 | 3a 6f 73 74 79 70 65 29 |ileType |:ostype)|
|000016b0| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 66 69 20 3a |).  (rle|t ((fi :|
|000016c0| 46 49 6e 66 6f 0d 20 20 | 20 20 20 20 20 20 20 20 |FInfo.  |        |
|000016d0| 20 20 20 3a 66 64 54 79 | 70 65 20 20 20 20 20 20 |   :fdTy|pe      |
|000016e0| 66 69 6c 65 54 79 70 65 | 20 0d 20 20 20 20 20 20 |fileType| .      |
|000016f0| 20 20 20 20 20 20 20 3a | 66 64 43 72 65 61 74 6f |       :|fdCreato|
|00001700| 72 20 20 20 63 72 65 61 | 74 6f 72 0d 20 20 20 20 |r   crea|tor.    |
|00001710| 20 20 20 20 20 20 20 20 | 20 3a 66 64 46 6c 61 67 |        | :fdFlag|
|00001720| 73 20 20 20 20 20 30 0d | 20 20 20 20 20 20 20 20 |s     0.|        |
|00001730| 20 20 20 20 20 3a 66 64 | 4c 6f 63 61 74 69 6f 6e |     :fd|Location|
|00001740| 20 20 23 40 28 30 20 30 | 29 0d 20 20 20 20 20 20 |  #@(0 0|).      |
|00001750| 20 20 20 20 20 20 20 3a | 66 64 46 6c 64 72 20 20 |       :|fdFldr  |
|00001760| 20 20 20 20 30 29 0d 20 | 20 20 20 20 20 20 20 20 |    0). |        |
|00001770| 28 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 |(pb :Par|amBlockR|
|00001780| 65 63 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ec.     |        |
|00001790| 3a 69 6f 4e 61 6d 65 50 | 74 72 20 20 20 66 69 6c |:ioNameP|tr   fil|
|000017a0| 65 4e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |eName.  |        |
|000017b0| 20 20 20 3a 69 6f 56 52 | 65 66 4e 75 6d 20 20 20 |   :ioVR|efNum   |
|000017c0| 76 52 65 66 4e 75 6d 0d | 20 20 20 20 20 20 20 20 |vRefNum.|        |
|000017d0| 20 20 20 20 20 3a 69 6f | 46 56 65 72 73 4e 75 6d |     :io|FVersNum|
|000017e0| 20 20 30 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |  0.    |        |
|000017f0| 20 3a 69 6f 46 44 69 72 | 49 6e 64 65 78 20 30 29 | :ioFDir|Index 0)|
|00001800| 29 0d 20 20 20 20 28 77 | 68 65 6e 20 28 7a 65 72 |).    (w|hen (zer|
|00001810| 6f 70 20 28 23 5f 50 42 | 43 72 65 61 74 65 20 70 |op (#_PB|Create p|
|00001820| 62 29 29 0d 20 20 20 20 | 20 20 28 77 68 65 6e 20 |b)).    |  (when |
|00001830| 28 7a 65 72 6f 70 20 28 | 23 5f 50 42 47 65 74 46 |(zerop (|#_PBGetF|
|00001840| 49 6e 66 6f 20 70 62 29 | 29 0d 20 20 20 20 20 20 |Info pb)|).      |
|00001850| 20 20 28 73 65 74 66 20 | 28 70 72 65 66 20 70 62 |  (setf |(pref pb|
|00001860| 20 3a 50 61 72 61 6d 42 | 6c 6f 63 6b 52 65 63 2e | :ParamB|lockRec.|
|00001870| 69 6f 46 6c 46 6e 64 72 | 49 6e 66 6f 29 20 66 69 |ioFlFndr|Info) fi|
|00001880| 29 0d 20 20 20 20 20 20 | 20 20 28 23 5f 50 42 53 |).      |  (#_PBS|
|00001890| 65 74 46 49 6e 66 6f 20 | 70 62 29 29 29 0d 20 20 |etFInfo |pb))).  |
|000018a0| 20 20 28 70 72 65 66 20 | 70 62 20 3a 50 61 72 61 |  (pref |pb :Para|
|000018b0| 6d 42 6c 6f 63 6b 52 65 | 63 2e 69 6f 52 65 73 75 |mBlockRe|c.ioResu|
|000018c0| 6c 74 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 2d |lt)))..(|deftrap-|
|000018d0| 4e 6f 74 49 6e 52 4f 4d | 20 5f 46 53 44 65 6c 65 |NotInROM| _FSDele|
|000018e0| 74 65 20 3a 4f 53 45 72 | 72 20 28 28 66 69 6c 65 |te :OSEr|r ((file|
|000018f0| 4e 61 6d 65 20 28 3a 73 | 74 72 69 6e 67 20 32 35 |Name (:s|tring 25|
|00001900| 35 29 29 20 28 76 52 65 | 66 4e 75 6d 20 3a 73 69 |5)) (vRe|fNum :si|
|00001910| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 29 0d 20 |gned-int|eger)). |
|00001920| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 50 61 72 | (rlet (|(pb :Par|
|00001930| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec.     |
|00001940| 20 20 20 20 20 20 20 20 | 3a 69 6f 4e 61 6d 65 50 |        |:ioNameP|
|00001950| 74 72 20 20 66 69 6c 65 | 4e 61 6d 65 0d 20 20 20 |tr  file|Name.   |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 56 52 65 |        |  :ioVRe|
|00001970| 66 4e 75 6d 20 20 76 52 | 65 66 4e 75 6d 0d 20 20 |fNum  vR|efNum.  |
|00001980| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 46 56 |        |   :ioFV|
|00001990| 65 72 73 4e 75 6d 20 30 | 29 29 0d 20 20 20 20 28 |ersNum 0|)).    (|
|000019a0| 23 5f 50 42 44 65 6c 65 | 74 65 20 70 62 29 29 29 |#_PBDele|te pb)))|
|000019b0| 0d 0d 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |..;;;;;;|;;;;;;;;|
|000019c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000019d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000019e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000019f0| 3b 3b 3b 3b 3b 3b 3b 3b | 0d 3b 3b 3b 20 43 68 61 |;;;;;;;;|.;;; Cha|
|00001a00| 6e 67 69 6e 67 20 49 6e | 66 6f 72 6d 61 74 69 6f |nging In|formatio|
|00001a10| 6e 20 41 62 6f 75 74 20 | 46 69 6c 65 73 20 2d 20 |n About |Files - |
|00001a20| 49 4d 20 49 56 20 70 70 | 2e 20 31 31 32 2d 31 31 |IM IV pp|. 112-11|
|00001a30| 33 0d 0d 28 64 65 66 74 | 72 61 70 2d 4e 6f 74 49 |3..(deft|rap-NotI|
|00001a40| 6e 52 4f 4d 20 5f 47 65 | 74 46 49 6e 66 6f 20 3a |nROM _Ge|tFInfo :|
|00001a50| 4f 53 45 72 72 20 28 28 | 66 69 6c 65 4e 61 6d 65 |OSErr ((|fileName|
|00001a60| 20 28 3a 73 74 72 69 6e | 67 20 32 35 35 29 29 20 | (:strin|g 255)) |
|00001a70| 28 76 52 65 66 4e 75 6d | 20 3a 73 69 67 6e 65 64 |(vRefNum| :signed|
|00001a80| 2d 69 6e 74 65 67 65 72 | 29 20 28 66 6e 64 72 49 |-integer|) (fndrI|
|00001a90| 6e 66 6f 20 28 3a 70 6f | 69 6e 74 65 72 20 3a 46 |nfo (:po|inter :F|
|00001aa0| 49 6e 66 6f 29 29 29 0d | 20 20 28 72 6c 65 74 20 |Info))).|  (rlet |
|00001ab0| 28 28 70 62 20 3a 50 61 | 72 61 6d 42 6c 6f 63 6b |((pb :Pa|ramBlock|
|00001ac0| 52 65 63 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |Rec.    |        |
|00001ad0| 20 3a 69 6f 4e 61 6d 65 | 50 74 72 20 20 20 66 69 | :ioName|Ptr   fi|
|00001ae0| 6c 65 4e 61 6d 65 0d 20 | 20 20 20 20 20 20 20 20 |leName. |        |
|00001af0| 20 20 20 20 3a 69 6f 56 | 52 65 66 4e 75 6d 20 20 |    :ioV|RefNum  |
|00001b00| 20 76 52 65 66 4e 75 6d | 0d 20 20 20 20 20 20 20 | vRefNum|.       |
|00001b10| 20 20 20 20 20 20 3a 69 | 6f 46 56 65 72 73 4e 75 |      :i|oFVersNu|
|00001b20| 6d 20 20 30 0d 20 20 20 | 20 20 20 20 20 20 20 20 |m  0.   |        |
|00001b30| 20 20 3a 69 6f 46 44 69 | 72 49 6e 64 65 78 20 30 |  :ioFDi|rIndex 0|
|00001b40| 29 29 0d 20 20 20 20 28 | 70 72 6f 67 31 0d 20 20 |)).    (|prog1.  |
|00001b50| 20 20 20 20 28 23 5f 50 | 42 47 65 74 46 49 6e 66 |    (#_P|BGetFInf|
|00001b60| 6f 20 70 62 29 0d 20 20 | 20 20 20 20 28 23 5f 42 |o pb).  |    (#_B|
|00001b70| 6c 6f 63 6b 4d 6f 76 65 | 20 28 70 72 65 66 20 70 |lockMove| (pref p|
|00001b80| 62 20 3a 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 |b :Param|BlockRec|
|00001b90| 2e 69 6f 46 6c 46 6e 64 | 72 49 6e 66 6f 29 20 66 |.ioFlFnd|rInfo) f|
|00001ba0| 6e 64 72 49 6e 66 6f 20 | 23 2e 28 63 63 6c 3a 3a |ndrInfo |#.(ccl::|
|00001bb0| 72 65 63 6f 72 64 2d 66 | 69 65 6c 64 2d 6c 65 6e |record-f|ield-len|
|00001bc0| 67 74 68 20 3a 46 49 6e | 66 6f 29 29 29 29 29 0d |gth :FIn|fo))))).|
|00001bd0| 0d 28 64 65 66 74 72 61 | 70 2d 4e 6f 74 49 6e 52 |.(deftra|p-NotInR|
|00001be0| 4f 4d 20 5f 53 65 74 46 | 49 6e 66 6f 20 3a 4f 53 |OM _SetF|Info :OS|
|00001bf0| 45 72 72 20 28 28 66 69 | 6c 65 4e 61 6d 65 20 28 |Err ((fi|leName (|
|00001c00| 3a 73 74 72 69 6e 67 20 | 32 35 35 29 29 20 28 76 |:string |255)) (v|
|00001c10| 52 65 66 4e 75 6d 20 3a | 73 69 67 6e 65 64 2d 69 |RefNum :|signed-i|
|00001c20| 6e 74 65 67 65 72 29 20 | 28 66 6e 64 72 49 6e 66 |nteger) |(fndrInf|
|00001c30| 6f 20 3a 46 49 6e 66 6f | 29 29 0d 20 20 28 72 6c |o :FInfo|)).  (rl|
|00001c40| 65 74 20 28 28 70 62 20 | 3a 50 61 72 61 6d 42 6c |et ((pb |:ParamBl|
|00001c50| 6f 63 6b 52 65 63 0d 20 | 20 20 20 20 20 20 20 20 |ockRec. |        |
|00001c60| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 20 |    :ioN|amePtr  |
|00001c70| 20 66 69 6c 65 4e 61 6d | 65 0d 20 20 20 20 20 20 | fileNam|e.      |
|00001c80| 20 20 20 20 20 20 20 3a | 69 6f 56 52 65 66 4e 75 |       :|ioVRefNu|
|00001c90| 6d 20 20 20 76 52 65 66 | 4e 75 6d 0d 20 20 20 20 |m   vRef|Num.    |
|00001ca0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 46 56 65 72 |        | :ioFVer|
|00001cb0| 73 4e 75 6d 20 20 30 0d | 20 20 20 20 20 20 20 20 |sNum  0.|        |
|00001cc0| 20 20 20 20 20 3a 69 6f | 46 44 69 72 49 6e 64 65 |     :io|FDirInde|
|00001cd0| 78 20 30 29 29 0d 20 20 | 20 20 28 77 68 65 6e 20 |x 0)).  |  (when |
|00001ce0| 28 7a 65 72 6f 70 20 28 | 23 5f 50 42 47 65 74 46 |(zerop (|#_PBGetF|
|00001cf0| 49 6e 66 6f 20 70 62 29 | 29 0d 20 20 20 20 20 20 |Info pb)|).      |
|00001d00| 28 73 65 74 66 20 28 70 | 72 65 66 20 70 62 20 3a |(setf (p|ref pb :|
|00001d10| 50 61 72 61 6d 42 6c 6f | 63 6b 52 65 63 2e 69 6f |ParamBlo|ckRec.io|
|00001d20| 46 6c 46 6e 64 72 49 6e | 66 6f 29 20 66 6e 64 72 |FlFndrIn|fo) fndr|
|00001d30| 49 6e 66 6f 29 0d 20 20 | 20 20 20 20 28 23 5f 50 |Info).  |    (#_P|
|00001d40| 42 53 65 74 46 49 6e 66 | 6f 20 70 62 29 29 0d 20 |BSetFInf|o pb)). |
|00001d50| 20 20 20 28 70 72 65 66 | 20 70 62 20 3a 50 61 72 |   (pref| pb :Par|
|00001d60| 61 6d 42 6c 6f 63 6b 52 | 65 63 2e 69 6f 52 65 73 |amBlockR|ec.ioRes|
|00001d70| 75 6c 74 29 29 29 0d 0d | 28 64 65 66 74 72 61 70 |ult)))..|(deftrap|
|00001d80| 2d 4e 6f 74 49 6e 52 4f | 4d 20 5f 53 65 74 46 6c |-NotInRO|M _SetFl|
|00001d90| 6f 63 6b 20 3a 4f 53 45 | 72 72 20 28 28 66 69 6c |ock :OSE|rr ((fil|
|00001da0| 65 4e 61 6d 65 20 28 3a | 73 74 72 69 6e 67 20 32 |eName (:|string 2|
|00001db0| 35 35 29 29 20 28 76 52 | 65 66 4e 75 6d 20 3a 73 |55)) (vR|efNum :s|
|00001dc0| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 29 0d |igned-in|teger)).|
|00001dd0| 20 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 50 61 |  (rlet |((pb :Pa|
|00001de0| 72 61 6d 42 6c 6f 63 6b | 52 65 63 0d 20 20 20 20 |ramBlock|Rec.    |
|00001df0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 4e 61 6d 65 |        | :ioName|
|00001e00| 50 74 72 20 20 66 69 6c | 65 4e 61 6d 65 0d 20 20 |Ptr  fil|eName.  |
|00001e10| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 56 52 |        |   :ioVR|
|00001e20| 65 66 4e 75 6d 20 20 76 | 52 65 66 4e 75 6d 0d 20 |efNum  v|RefNum. |
|00001e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 46 |        |    :ioF|
|00001e40| 56 65 72 73 4e 75 6d 20 | 30 29 29 0d 20 20 20 20 |VersNum |0)).    |
|00001e50| 28 23 5f 50 42 53 65 74 | 46 6c 6f 63 6b 20 70 62 |(#_PBSet|Flock pb|
|00001e60| 29 29 29 0d 0d 28 64 65 | 66 74 72 61 70 2d 4e 6f |)))..(de|ftrap-No|
|00001e70| 74 49 6e 52 4f 4d 20 5f | 52 73 74 46 6c 6f 63 6b |tInROM _|RstFlock|
|00001e80| 20 3a 4f 53 45 72 72 20 | 28 28 66 69 6c 65 4e 61 | :OSErr |((fileNa|
|00001e90| 6d 65 20 28 3a 73 74 72 | 69 6e 67 20 32 35 35 29 |me (:str|ing 255)|
|00001ea0| 29 20 28 76 52 65 66 4e | 75 6d 20 3a 73 69 67 6e |) (vRefN|um :sign|
|00001eb0| 65 64 2d 69 6e 74 65 67 | 65 72 29 29 0d 20 20 28 |ed-integ|er)).  (|
|00001ec0| 72 6c 65 74 20 28 28 70 | 62 20 3a 50 61 72 61 6d |rlet ((p|b :Param|
|00001ed0| 42 6c 6f 63 6b 52 65 63 | 0d 20 20 20 20 20 20 20 |BlockRec|.       |
|00001ee0| 20 20 20 20 20 20 3a 69 | 6f 4e 61 6d 65 50 74 72 |      :i|oNamePtr|
|00001ef0| 20 20 66 69 6c 65 4e 61 | 6d 65 0d 20 20 20 20 20 |  fileNa|me.     |
|00001f00| 20 20 20 20 20 20 20 20 | 3a 69 6f 56 52 65 66 4e |        |:ioVRefN|
|00001f10| 75 6d 20 20 76 52 65 66 | 4e 75 6d 0d 20 20 20 20 |um  vRef|Num.    |
|00001f20| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 46 56 65 72 |        | :ioFVer|
|00001f30| 73 4e 75 6d 20 30 29 29 | 0d 20 20 20 20 28 23 5f |sNum 0))|.    (#_|
|00001f40| 50 42 52 73 74 46 6c 6f | 63 6b 20 70 62 29 29 29 |PBRstFlo|ck pb)))|
|00001f50| 0d 0d 28 64 65 66 74 72 | 61 70 2d 4e 6f 74 49 6e |..(deftr|ap-NotIn|
|00001f60| 52 4f 4d 20 5f 52 65 6e | 61 6d 65 20 3a 4f 53 45 |ROM _Ren|ame :OSE|
|00001f70| 72 72 20 28 28 6f 6c 64 | 4e 61 6d 65 20 28 3a 73 |rr ((old|Name (:s|
|00001f80| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 76 52 65 |tring 25|5)) (vRe|
|00001f90| 66 4e 75 6d 20 3a 73 69 | 67 6e 65 64 2d 69 6e 74 |fNum :si|gned-int|
|00001fa0| 65 67 65 72 29 20 28 6e | 65 77 4e 61 6d 65 20 28 |eger) (n|ewName (|
|00001fb0| 3a 73 74 72 69 6e 67 20 | 32 35 35 29 29 29 0d 20 |:string |255))). |
|00001fc0| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 50 61 72 | (rlet (|(pb :Par|
|00001fd0| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec.     |
|00001fe0| 20 20 20 20 20 20 20 20 | 3a 69 6f 4e 61 6d 65 50 |        |:ioNameP|
|00001ff0| 74 72 20 20 6f 6c 64 4e | 61 6d 65 0d 20 20 20 20 |tr  oldN|ame.    |
|00002000| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 56 52 65 66 |        | :ioVRef|
|00002010| 4e 75 6d 20 20 76 52 65 | 66 4e 75 6d 0d 20 20 20 |Num  vRe|fNum.   |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 46 56 65 |        |  :ioFVe|
|00002030| 72 73 4e 75 6d 20 30 0d | 20 20 20 20 20 20 20 20 |rsNum 0.|        |
|00002040| 20 20 20 20 20 3a 69 6f | 4d 69 73 63 20 20 20 20 |     :io|Misc    |
|00002050| 20 6e 65 77 4e 61 6d 65 | 29 29 0d 20 20 20 20 28 | newName|)).    (|
|00002060| 23 5f 50 42 52 65 6e 61 | 6d 65 20 70 62 29 29 29 |#_PBRena|me pb)))|
|00002070| 0d 0d 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |..;;;;;;|;;;;;;;;|
|00002080| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002090| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000020a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000020b0| 3b 3b 3b 3b 3b 3b 3b 3b | 0d 3b 3b 20 48 69 67 68 |;;;;;;;;|.;; High|
|000020c0| 20 4c 65 76 65 6c 20 48 | 46 53 20 63 61 6c 6c 73 | Level H|FS calls|
|000020d0| 0d 3b 3b 20 66 72 6f 6d | 20 49 4d 20 56 49 20 70 |.;; from| IM VI p|
|000020e0| 70 2e 20 32 35 2e 33 34 | 2d 32 35 2e 33 37 20 28 |p. 25.34|-25.37 (|
|000020f0| 61 6e 64 20 54 4e 23 32 | 31 38 29 0d 0d 28 64 65 |and TN#2|18)..(de|
|00002100| 66 74 72 61 70 2d 4e 6f | 74 49 6e 52 4f 4d 20 5f |ftrap-No|tInROM _|
|00002110| 41 6c 6c 6f 63 43 6f 6e | 74 69 67 20 3a 4f 53 45 |AllocCon|tig :OSE|
|00002120| 72 72 20 28 28 72 65 66 | 4e 75 6d 20 3a 73 69 67 |rr ((ref|Num :sig|
|00002130| 6e 65 64 2d 69 6e 74 65 | 67 65 72 29 20 28 63 6f |ned-inte|ger) (co|
|00002140| 75 6e 74 20 28 3a 70 6f | 69 6e 74 65 72 20 3a 73 |unt (:po|inter :s|
|00002150| 69 67 6e 65 64 2d 6c 6f | 6e 67 29 29 29 0d 20 20 |igned-lo|ng))).  |
|00002160| 28 72 6c 65 74 20 28 28 | 70 62 20 3a 50 61 72 61 |(rlet ((|pb :Para|
|00002170| 6d 42 6c 6f 63 6b 52 65 | 63 0d 20 20 20 20 20 20 |mBlockRe|c.      |
|00002180| 20 20 20 20 20 20 20 3a | 69 6f 52 65 66 4e 75 6d |       :|ioRefNum|
|00002190| 20 20 20 72 65 66 4e 75 | 6d 0d 20 20 20 20 20 20 |   refNu|m.      |
|000021a0| 20 20 20 20 20 20 20 3a | 69 6f 52 65 71 43 6f 75 |       :|ioReqCou|
|000021b0| 6e 74 20 28 25 67 65 74 | 2d 73 69 67 6e 65 64 2d |nt (%get|-signed-|
|000021c0| 6c 6f 6e 67 20 63 6f 75 | 6e 74 29 29 29 0d 20 20 |long cou|nt))).  |
|000021d0| 20 20 28 70 72 6f 67 31 | 0d 20 20 20 20 20 20 28 |  (prog1|.      (|
|000021e0| 23 5f 50 42 41 6c 6c 6f | 63 43 6f 6e 74 69 67 20 |#_PBAllo|cContig |
|000021f0| 70 62 29 0d 20 20 20 20 | 20 20 28 25 70 75 74 2d |pb).    |  (%put-|
|00002200| 6c 6f 6e 67 20 63 6f 75 | 6e 74 20 28 70 72 65 66 |long cou|nt (pref|
|00002210| 20 70 62 20 3a 50 61 72 | 61 6d 42 6c 6f 63 6b 52 | pb :Par|amBlockR|
|00002220| 65 63 2e 69 6f 41 63 74 | 43 6f 75 6e 74 29 29 29 |ec.ioAct|Count)))|
|00002230| 29 29 0d 0d 28 64 65 66 | 74 72 61 70 2d 4e 6f 74 |))..(def|trap-Not|
|00002240| 49 6e 52 4f 4d 20 5f 44 | 69 72 43 72 65 61 74 65 |InROM _D|irCreate|
|00002250| 20 3a 4f 53 45 72 72 20 | 28 28 76 52 65 66 4e 75 | :OSErr |((vRefNu|
|00002260| 6d 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |m :signe|d-intege|
|00002270| 72 29 20 28 70 61 72 65 | 6e 74 44 69 72 49 44 20 |r) (pare|ntDirID |
|00002280| 3a 73 69 67 6e 65 64 2d | 6c 6f 6e 67 29 20 28 64 |:signed-|long) (d|
|00002290| 69 72 65 63 74 6f 72 79 | 4e 61 6d 65 20 28 3a 73 |irectory|Name (:s|
|000022a0| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 63 72 65 |tring 25|5)) (cre|
|000022b0| 61 74 65 64 44 69 72 49 | 44 20 28 3a 70 6f 69 6e |atedDirI|D (:poin|
|000022c0| 74 65 72 20 3a 73 69 67 | 6e 65 64 2d 6c 6f 6e 67 |ter :sig|ned-long|
|000022d0| 29 29 29 0d 20 20 28 72 | 6c 65 74 20 28 28 70 62 |))).  (r|let ((pb|
|000022e0| 20 3a 48 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 | :HParam|BlockRec|
|000022f0| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | .      |       :|
|00002300| 69 6f 4e 61 6d 65 50 74 | 72 20 64 69 72 65 63 74 |ioNamePt|r direct|
|00002310| 6f 72 79 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |oryName.|        |
|00002320| 20 20 20 20 20 3a 69 6f | 56 52 65 66 4e 75 6d 20 |     :io|VRefNum |
|00002330| 76 52 65 66 4e 75 6d 0d | 20 20 20 20 20 20 20 20 |vRefNum.|        |
|00002340| 20 20 20 20 20 3a 69 6f | 44 69 72 49 44 20 20 20 |     :io|DirID   |
|00002350| 70 61 72 65 6e 74 44 69 | 72 49 44 29 29 0d 20 20 |parentDi|rID)).  |
|00002360| 20 20 28 70 72 6f 67 31 | 0d 20 20 20 20 20 20 28 |  (prog1|.      (|
|00002370| 23 5f 50 42 44 69 72 43 | 72 65 61 74 65 20 70 62 |#_PBDirC|reate pb|
|00002380| 29 0d 20 20 20 20 20 20 | 28 25 70 75 74 2d 6c 6f |).      |(%put-lo|
|00002390| 6e 67 20 63 72 65 61 74 | 65 64 44 69 72 49 44 20 |ng creat|edDirID |
|000023a0| 28 70 72 65 66 20 70 62 | 20 3a 48 50 61 72 61 6d |(pref pb| :HParam|
|000023b0| 42 6c 6f 63 6b 52 65 63 | 2e 69 6f 44 69 72 49 44 |BlockRec|.ioDirID|
|000023c0| 29 29 29 29 29 0d 0d 28 | 64 65 66 74 72 61 70 2d |)))))..(|deftrap-|
|000023d0| 4e 6f 74 49 6e 52 4f 4d | 20 5f 43 61 74 4d 6f 76 |NotInROM| _CatMov|
|000023e0| 65 20 3a 4f 53 45 72 72 | 20 28 28 76 52 65 66 4e |e :OSErr| ((vRefN|
|000023f0| 75 6d 20 3a 73 69 67 6e | 65 64 2d 69 6e 74 65 67 |um :sign|ed-integ|
|00002400| 65 72 29 20 28 64 69 72 | 49 44 20 3a 73 69 67 6e |er) (dir|ID :sign|
|00002410| 65 64 2d 6c 6f 6e 67 29 | 20 28 6f 6c 64 4e 61 6d |ed-long)| (oldNam|
|00002420| 65 20 28 3a 73 74 72 69 | 6e 67 20 32 35 35 29 29 |e (:stri|ng 255))|
|00002430| 20 28 6e 65 77 44 69 72 | 49 44 20 3a 73 69 67 6e | (newDir|ID :sign|
|00002440| 65 64 2d 6c 6f 6e 67 29 | 20 28 6e 65 77 4e 61 6d |ed-long)| (newNam|
|00002450| 65 20 28 3a 73 74 72 69 | 6e 67 20 32 35 35 29 29 |e (:stri|ng 255))|
|00002460| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |).  (rle|t ((pb :|
|00002470| 43 4d 6f 76 65 50 42 52 | 65 63 0d 20 20 20 20 20 |CMovePBR|ec.     |
|00002480| 20 20 20 20 20 20 20 20 | 3a 69 6f 4e 61 6d 65 50 |        |:ioNameP|
|00002490| 74 72 20 20 6f 6c 64 4e | 61 6d 65 0d 20 20 20 20 |tr  oldN|ame.    |
|000024a0| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 56 52 65 66 |        | :ioVRef|
|000024b0| 4e 75 6d 20 20 76 52 65 | 66 4e 75 6d 0d 20 20 20 |Num  vRe|fNum.   |
|000024c0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 4e 65 77 |        |  :ioNew|
|000024d0| 4e 61 6d 65 20 20 6e 65 | 77 4e 61 6d 65 0d 20 20 |Name  ne|wName.  |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4e 65 |        |   :ioNe|
|000024f0| 77 44 69 72 49 64 20 6e | 65 77 44 69 72 49 44 0d |wDirId n|ewDirID.|
|00002500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f |        |     :io|
|00002510| 44 69 72 49 44 20 20 20 | 20 64 69 72 49 44 29 29 |DirID   | dirID))|
|00002520| 0d 20 20 20 20 28 23 5f | 50 42 43 61 74 4d 6f 76 |.    (#_|PBCatMov|
|00002530| 65 20 70 62 29 29 29 0d | 0d 28 64 65 66 74 72 61 |e pb))).|.(deftra|
|00002540| 70 2d 4e 6f 74 49 6e 52 | 4f 4d 20 5f 4f 70 65 6e |p-NotInR|OM _Open|
|00002550| 57 44 20 3a 4f 53 45 72 | 72 20 28 28 76 52 65 66 |WD :OSEr|r ((vRef|
|00002560| 4e 75 6d 20 3a 73 69 67 | 6e 65 64 2d 69 6e 74 65 |Num :sig|ned-inte|
|00002570| 67 65 72 29 20 28 64 69 | 72 49 44 20 3a 73 69 67 |ger) (di|rID :sig|
|00002580| 6e 65 64 2d 6c 6f 6e 67 | 29 20 28 70 72 6f 63 49 |ned-long|) (procI|
|00002590| 44 20 3a 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 29 20 |D :signe|d-long) |
|000025a0| 28 77 64 52 65 66 4e 75 | 6d 20 28 3a 70 6f 69 6e |(wdRefNu|m (:poin|
|000025b0| 74 65 72 20 3a 73 69 67 | 6e 65 64 2d 69 6e 74 65 |ter :sig|ned-inte|
|000025c0| 67 65 72 29 29 29 0d 20 | 20 28 72 6c 65 74 20 28 |ger))). | (rlet (|
|000025d0| 28 70 62 20 3a 57 44 50 | 42 52 65 63 0d 20 20 20 |(pb :WDP|BRec.   |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 4e 61 6d |        |  :ioNam|
|000025f0| 65 50 74 72 20 20 28 25 | 6e 75 6c 6c 2d 70 74 72 |ePtr  (%|null-ptr|
|00002600| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |).      |       :|
|00002610| 69 6f 56 52 65 66 4e 75 | 6d 20 20 76 52 65 66 4e |ioVRefNu|m  vRefN|
|00002620| 75 6d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |um.     |        |
|00002630| 3a 69 6f 57 44 50 72 6f | 63 49 44 20 70 72 6f 63 |:ioWDPro|cID proc|
|00002640| 49 44 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ID.     |        |
|00002650| 3a 69 6f 57 44 44 69 72 | 49 44 20 20 64 69 72 49 |:ioWDDir|ID  dirI|
|00002660| 44 29 29 0d 20 20 20 20 | 28 70 72 6f 67 31 0d 20 |D)).    |(prog1. |
|00002670| 20 20 20 20 20 28 23 5f | 50 42 4f 70 65 6e 57 44 |     (#_|PBOpenWD|
|00002680| 20 70 62 29 0d 20 20 20 | 20 20 20 28 25 70 75 74 | pb).   |   (%put|
|00002690| 2d 77 6f 72 64 20 77 64 | 52 65 66 4e 75 6d 20 28 |-word wd|RefNum (|
|000026a0| 70 72 65 66 20 70 62 20 | 3a 57 44 50 42 52 65 63 |pref pb |:WDPBRec|
|000026b0| 2e 69 6f 56 52 65 66 4e | 75 6d 29 29 29 29 29 0d |.ioVRefN|um))))).|
|000026c0| 0d 28 64 65 66 74 72 61 | 70 2d 4e 6f 74 49 6e 52 |.(deftra|p-NotInR|
|000026d0| 4f 4d 20 5f 43 6c 6f 73 | 65 57 44 20 3a 4f 53 45 |OM _Clos|eWD :OSE|
|000026e0| 72 72 20 28 28 77 64 52 | 65 66 4e 75 6d 20 3a 73 |rr ((wdR|efNum :s|
|000026f0| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 29 0d |igned-in|teger)).|
|00002700| 20 20 28 72 6c 65 74 20 | 28 28 70 62 20 3a 57 44 |  (rlet |((pb :WD|
|00002710| 50 42 52 65 63 0d 20 20 | 20 20 20 20 20 20 20 20 |PBRec.  |        |
|00002720| 20 20 20 3a 69 6f 56 52 | 65 66 4e 75 6d 20 77 64 |   :ioVR|efNum wd|
|00002730| 52 65 66 4e 75 6d 29 29 | 0d 20 20 20 20 28 23 5f |RefNum))|.    (#_|
|00002740| 50 42 43 6c 6f 73 65 57 | 44 20 70 62 29 29 29 0d |PBCloseW|D pb))).|
|00002750| 0d 28 64 65 66 74 72 61 | 70 2d 4e 6f 74 49 6e 52 |.(deftra|p-NotInR|
|00002760| 4f 4d 20 5f 47 65 74 57 | 44 49 6e 66 6f 20 3a 4f |OM _GetW|DInfo :O|
|00002770| 53 45 72 72 20 28 28 77 | 64 52 65 66 4e 75 6d 20 |SErr ((w|dRefNum |
|00002780| 3a 73 69 67 6e 65 64 2d | 69 6e 74 65 67 65 72 29 |:signed-|integer)|
|00002790| 20 28 76 52 65 66 4e 75 | 6d 20 28 3a 70 6f 69 6e | (vRefNu|m (:poin|
|000027a0| 74 65 72 20 3a 73 69 67 | 6e 65 64 2d 69 6e 74 65 |ter :sig|ned-inte|
|000027b0| 67 65 72 29 29 20 28 64 | 69 72 49 44 20 28 3a 70 |ger)) (d|irID (:p|
|000027c0| 6f 69 6e 74 65 72 20 3a | 73 69 67 6e 65 64 2d 6c |ointer :|signed-l|
|000027d0| 6f 6e 67 29 29 20 28 70 | 72 6f 63 49 44 20 28 3a |ong)) (p|rocID (:|
|000027e0| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|000027f0| 6c 6f 6e 67 29 29 29 0d | 20 20 28 72 6c 65 74 20 |long))).|  (rlet |
|00002800| 28 28 70 62 20 3a 57 44 | 50 42 52 65 63 0d 20 20 |((pb :WD|PBRec.  |
|00002810| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 4e 61 |        |   :ioNa|
|00002820| 6d 65 50 74 72 20 20 20 | 28 25 6e 75 6c 6c 2d 70 |mePtr   |(%null-p|
|00002830| 74 72 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |tr).    |        |
|00002840| 20 3a 69 6f 56 52 65 66 | 4e 75 6d 20 20 20 77 64 | :ioVRef|Num   wd|
|00002850| 52 65 66 4e 75 6d 0d 20 | 20 20 20 20 20 20 20 20 |RefNum. |        |
|00002860| 20 20 20 20 3a 69 6f 57 | 44 49 6e 64 65 78 20 20 |    :ioW|DIndex  |
|00002870| 20 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0.     |        |
|00002880| 3a 69 6f 57 44 50 72 6f | 63 49 44 20 20 30 0d 20 |:ioWDPro|cID  0. |
|00002890| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 6f 57 |        |    :ioW|
|000028a0| 44 56 52 65 66 4e 75 6d | 20 30 29 29 0d 20 20 20 |DVRefNum| 0)).   |
|000028b0| 20 28 70 72 6f 67 31 0d | 20 20 20 20 20 20 28 23 | (prog1.|      (#|
|000028c0| 5f 50 42 47 65 74 57 44 | 49 6e 66 6f 20 70 62 29 |_PBGetWD|Info pb)|
|000028d0| 0d 20 20 20 20 20 20 28 | 25 70 75 74 2d 77 6f 72 |.      (|%put-wor|
|000028e0| 64 20 76 52 65 66 4e 75 | 6d 20 28 70 72 65 66 20 |d vRefNu|m (pref |
|000028f0| 70 62 20 3a 57 44 50 42 | 52 65 63 2e 69 6f 57 44 |pb :WDPB|Rec.ioWD|
|00002900| 56 52 65 66 4e 75 6d 29 | 29 0d 20 20 20 20 20 20 |VRefNum)|).      |
|00002910| 28 25 70 75 74 2d 6c 6f | 6e 67 20 64 69 72 49 44 |(%put-lo|ng dirID|
|00002920| 20 20 20 28 70 72 65 66 | 20 70 62 20 3a 57 44 50 |   (pref| pb :WDP|
|00002930| 42 52 65 63 2e 69 6f 57 | 44 44 69 72 49 44 29 29 |BRec.ioW|DDirID))|
|00002940| 0d 20 20 20 20 20 20 28 | 25 70 75 74 2d 6c 6f 6e |.      (|%put-lon|
|00002950| 67 20 70 72 6f 63 49 44 | 20 20 28 70 72 65 66 20 |g procID|  (pref |
|00002960| 70 62 20 3a 57 44 50 42 | 52 65 63 2e 69 6f 57 44 |pb :WDPB|Rec.ioWD|
|00002970| 50 72 6f 63 49 44 29 29 | 29 29 29 0d 0d 0d 28 64 |ProcID))|)))...(d|
|00002980| 65 66 74 72 61 70 2d 4e | 6f 74 49 6e 52 4f 4d 20 |eftrap-N|otInROM |
|00002990| 5f 48 43 72 65 61 74 65 | 20 3a 4f 53 45 72 72 20 |_HCreate| :OSErr |
|000029a0| 28 28 76 52 65 66 4e 75 | 6d 20 3a 73 69 67 6e 65 |((vRefNu|m :signe|
|000029b0| 64 2d 69 6e 74 65 67 65 | 72 29 20 28 64 69 72 49 |d-intege|r) (dirI|
|000029c0| 44 20 3a 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 29 20 |D :signe|d-long) |
|000029d0| 28 66 69 6c 65 4e 61 6d | 65 20 28 3a 73 74 72 69 |(fileNam|e (:stri|
|000029e0| 6e 67 20 32 35 35 29 29 | 20 28 63 72 65 61 74 6f |ng 255))| (creato|
|000029f0| 72 20 3a 6f 73 74 79 70 | 65 29 20 28 66 69 6c 65 |r :ostyp|e) (file|
|00002a00| 54 79 70 65 20 3a 6f 73 | 74 79 70 65 29 29 0d 20 |Type :os|type)). |
|00002a10| 20 28 72 6c 65 74 20 28 | 28 66 69 20 3a 46 49 6e | (rlet (|(fi :FIn|
|00002a20| 66 6f 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |fo.     |        |
|00002a30| 3a 66 64 54 79 70 65 20 | 20 20 20 20 20 66 69 6c |:fdType |     fil|
|00002a40| 65 54 79 70 65 20 0d 20 | 20 20 20 20 20 20 20 20 |eType . |        |
|00002a50| 20 20 20 20 3a 66 64 43 | 72 65 61 74 6f 72 20 20 |    :fdC|reator  |
|00002a60| 20 63 72 65 61 74 6f 72 | 0d 20 20 20 20 20 20 20 | creator|.       |
|00002a70| 20 20 20 20 20 20 3a 66 | 64 46 6c 61 67 73 20 20 |      :f|dFlags  |
|00002a80| 20 20 20 30 0d 20 20 20 | 20 20 20 20 20 20 20 20 |   0.   |        |
|00002a90| 20 20 3a 66 64 4c 6f 63 | 61 74 69 6f 6e 20 20 30 |  :fdLoc|ation  0|
|00002aa0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 66 |.       |      :f|
|00002ab0| 64 46 6c 64 72 20 20 20 | 20 20 20 30 29 0d 20 20 |dFldr   |   0).  |
|00002ac0| 20 20 20 20 20 20 20 28 | 70 62 20 3a 48 50 61 72 |       (|pb :HPar|
|00002ad0| 61 6d 42 6c 6f 63 6b 52 | 65 63 0d 20 20 20 20 20 |amBlockR|ec.     |
|00002ae0| 20 20 20 20 20 20 20 20 | 3a 69 6f 4e 61 6d 65 50 |        |:ioNameP|
|00002af0| 74 72 20 20 20 66 69 6c | 65 4e 61 6d 65 0d 20 20 |tr   fil|eName.  |
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 56 52 |        |   :ioVR|
|00002b10| 65 66 4e 75 6d 20 20 20 | 76 52 65 66 4e 75 6d 0d |efNum   |vRefNum.|
|00002b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6f |        |     :io|
|00002b30| 46 56 65 72 73 4e 75 6d | 20 20 30 0d 20 20 20 20 |FVersNum|  0.    |
|00002b40| 20 20 20 20 20 20 20 20 | 20 3a 69 6f 46 44 69 72 |        | :ioFDir|
|00002b50| 49 6e 64 65 78 20 30 0d | 20 20 20 20 20 20 20 20 |Index 0.|        |
|00002b60| 20 20 20 20 20 3a 69 6f | 44 69 72 49 44 20 20 20 |     :io|DirID   |
|00002b70| 20 20 64 69 72 49 44 29 | 29 0d 20 20 20 20 28 77 |  dirID)|).    (w|
|00002b80| 68 65 6e 20 28 7a 65 72 | 6f 70 20 28 23 5f 50 42 |hen (zer|op (#_PB|
|00002b90| 48 43 72 65 61 74 65 20 | 70 62 29 29 0d 20 20 20 |HCreate |pb)).   |
|00002ba0| 20 20 20 28 77 68 65 6e | 20 28 7a 65 72 6f 70 20 |   (when| (zerop |
|00002bb0| 28 23 5f 50 42 48 47 65 | 74 46 49 6e 66 6f 20 70 |(#_PBHGe|tFInfo p|
|00002bc0| 62 29 29 0d 20 20 20 20 | 20 20 20 20 28 73 65 74 |b)).    |    (set|
|00002bd0| 66 20 28 70 72 65 66 20 | 70 62 20 3a 48 50 61 72 |f (pref |pb :HPar|
|00002be0| 61 6d 42 6c 6f 63 6b 52 | 65 63 2e 69 6f 46 6c 46 |amBlockR|ec.ioFlF|
|00002bf0| 6e 64 72 49 6e 66 6f 29 | 20 66 69 29 0d 20 20 20 |ndrInfo)| fi).   |
|00002c00| 20 20 20 20 20 3b 50 42 | 48 47 65 74 46 49 6e 66 |     ;PB|HGetFInf|
|00002c10| 6f 20 74 72 61 73 68 65 | 73 20 74 68 65 20 69 6f |o trashe|s the io|
|00002c20| 44 69 72 49 44 20 66 69 | 65 6c 64 20 2d 20 73 6f |DirID fi|eld - so|
|00002c30| 20 77 65 20 68 61 76 65 | 20 74 6f 20 72 65 73 65 | we have| to rese|
|00002c40| 74 20 69 74 0d 20 20 20 | 20 20 20 20 20 28 73 65 |t it.   |     (se|
|00002c50| 74 66 20 28 70 72 65 66 | 20 70 62 20 3a 48 50 61 |tf (pref| pb :HPa|
|00002c60| 72 61 6d 42 6c 6f 63 6b | 52 65 63 2e 69 6f 44 69 |ramBlock|Rec.ioDi|
|00002c70| 72 49 44 29 20 64 69 72 | 49 44 29 0d 20 20 20 20 |rID) dir|ID).    |
|00002c80| 20 20 20 20 28 23 5f 50 | 42 48 53 65 74 46 49 6e |    (#_P|BHSetFIn|
|00002c90| 66 6f 20 70 62 29 29 29 | 0d 20 20 20 20 28 70 72 |fo pb)))|.    (pr|
|00002ca0| 65 66 20 70 62 20 3a 48 | 50 61 72 61 6d 42 6c 6f |ef pb :H|ParamBlo|
|00002cb0| 63 6b 52 65 63 2e 69 6f | 52 65 73 75 6c 74 29 29 |ckRec.io|Result))|
|00002cc0| 29 0d 0d 28 64 65 66 74 | 72 61 70 2d 4e 6f 74 49 |)..(deft|rap-NotI|
|00002cd0| 6e 52 4f 4d 20 5f 48 4f | 70 65 6e 20 3a 4f 53 45 |nROM _HO|pen :OSE|
|00002ce0| 72 72 20 28 28 76 52 65 | 66 4e 75 6d 20 3a 73 69 |rr ((vRe|fNum :si|
|00002cf0| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 20 28 64 |gned-int|eger) (d|
|00002d00| 69 72 49 44 20 3a 73 69 | 67 6e 65 64 2d 6c 6f 6e |irID :si|gned-lon|
|00002d10| 67 29 20 28 66 69 6c 65 | 4e 61 6d 65 20 28 3a 73 |g) (file|Name (:s|
|00002d20| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 70 65 72 |tring 25|5)) (per|
|00002d30| 6d 69 73 73 69 6f 6e 20 | 3a 73 69 67 6e 65 64 2d |mission |:signed-|
|00002d40| 62 79 74 65 29 20 28 72 | 65 66 4e 75 6d 20 28 3a |byte) (r|efNum (:|
|00002d50| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00002d60| 69 6e 74 65 67 65 72 29 | 29 29 0d 20 20 28 72 6c |integer)|)).  (rl|
|00002d70| 65 74 20 28 28 70 62 20 | 3a 48 50 61 72 61 6d 42 |et ((pb |:HParamB|
|00002d80| 6c 6f 63 6b 52 65 63 20 | 0d 20 20 20 20 20 20 20 |lockRec |.       |
|00002d90| 20 20 20 20 20 20 3a 69 | 6f 4e 61 6d 65 50 74 72 |      :i|oNamePtr|
|00002da0| 20 66 69 6c 65 4e 61 6d | 65 0d 20 20 20 20 20 20 | fileNam|e.      |
|00002db0| 20 20 20 20 20 20 20 3a | 69 6f 56 52 65 66 4e 75 |       :|ioVRefNu|
|00002dc0| 6d 20 76 52 65 66 4e 75 | 6d 0d 20 20 20 20 20 20 |m vRefNu|m.      |
|00002dd0| 20 20 20 20 20 20 20 3a | 69 6f 50 65 72 6d 73 73 |       :|ioPermss|
|00002de0| 6e 20 70 65 72 6d 69 73 | 73 69 6f 6e 0d 20 20 20 |n permis|sion.   |
|00002df0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 4d 69 73 |        |  :ioMis|
|00002e00| 63 20 20 20 20 28 25 6e | 75 6c 6c 2d 70 74 72 29 |c    (%n|ull-ptr)|
|00002e10| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 |.       |      :i|
|00002e20| 6f 44 69 72 49 44 20 20 | 20 64 69 72 49 44 29 29 |oDirID  | dirID))|
|00002e30| 0d 20 20 20 20 28 70 72 | 6f 67 31 0d 20 20 20 20 |.    (pr|og1.    |
|00002e40| 20 20 28 23 5f 50 42 48 | 4f 70 65 6e 20 70 62 29 |  (#_PBH|Open pb)|
|00002e50| 0d 20 20 20 20 20 20 28 | 25 70 75 74 2d 77 6f 72 |.      (|%put-wor|
|00002e60| 64 20 72 65 66 4e 75 6d | 20 28 70 72 65 66 20 70 |d refNum| (pref p|
|00002e70| 62 20 3a 48 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |b :HPara|mBlockRe|
|00002e80| 63 2e 69 6f 52 65 66 4e | 75 6d 29 29 29 29 29 0d |c.ioRefN|um))))).|
|00002e90| 0d 28 64 65 66 74 72 61 | 70 2d 4e 6f 74 49 6e 52 |.(deftra|p-NotInR|
|00002ea0| 4f 4d 20 5f 48 4f 70 65 | 6e 52 46 20 3a 4f 53 45 |OM _HOpe|nRF :OSE|
|00002eb0| 72 72 20 28 28 76 52 65 | 66 4e 75 6d 20 3a 73 69 |rr ((vRe|fNum :si|
|00002ec0| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 29 20 28 64 |gned-int|eger) (d|
|00002ed0| 69 72 49 44 20 3a 73 69 | 67 6e 65 64 2d 6c 6f 6e |irID :si|gned-lon|
|00002ee0| 67 29 20 28 66 69 6c 65 | 4e 61 6d 65 20 28 3a 73 |g) (file|Name (:s|
|00002ef0| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 70 65 72 |tring 25|5)) (per|
|00002f00| 6d 69 73 73 69 6f 6e 20 | 3a 73 69 67 6e 65 64 2d |mission |:signed-|
|00002f10| 62 79 74 65 29 20 28 72 | 65 66 4e 75 6d 20 28 3a |byte) (r|efNum (:|
|00002f20| 70 6f 69 6e 74 65 72 20 | 3a 73 69 67 6e 65 64 2d |pointer |:signed-|
|00002f30| 69 6e 74 65 67 65 72 29 | 29 29 0d 20 20 28 72 6c |integer)|)).  (rl|
|00002f40| 65 74 20 28 28 70 62 20 | 3a 48 50 61 72 61 6d 42 |et ((pb |:HParamB|
|00002f50| 6c 6f 63 6b 52 65 63 20 | 0d 20 20 20 20 20 20 20 |lockRec |.       |
|00002f60| 20 20 20 20 20 20 3a 69 | 6f 4e 61 6d 65 50 74 72 |      :i|oNamePtr|
|00002f70| 20 66 69 6c 65 4e 61 6d | 65 0d 20 20 20 20 20 20 | fileNam|e.      |
|00002f80| 20 20 20 20 20 20 20 3a | 69 6f 56 52 65 66 4e 75 |       :|ioVRefNu|
|00002f90| 6d 20 76 52 65 66 4e 75 | 6d 0d 20 20 20 20 20 20 |m vRefNu|m.      |
|00002fa0| 20 20 20 20 20 20 20 3a | 69 6f 50 65 72 6d 73 73 |       :|ioPermss|
|00002fb0| 6e 20 70 65 72 6d 69 73 | 73 69 6f 6e 0d 20 20 20 |n permis|sion.   |
|00002fc0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 4d 69 73 |        |  :ioMis|
|00002fd0| 63 20 20 20 20 28 25 6e | 75 6c 6c 2d 70 74 72 29 |c    (%n|ull-ptr)|
|00002fe0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 |.       |      :i|
|00002ff0| 6f 44 69 72 49 44 20 20 | 20 64 69 72 49 44 29 29 |oDirID  | dirID))|
|00003000| 0d 20 20 20 20 28 70 72 | 6f 67 31 0d 20 20 20 20 |.    (pr|og1.    |
|00003010| 20 20 28 23 5f 50 42 48 | 4f 70 65 6e 52 46 20 70 |  (#_PBH|OpenRF p|
|00003020| 62 29 0d 20 20 20 20 20 | 20 28 25 70 75 74 2d 77 |b).     | (%put-w|
|00003030| 6f 72 64 20 72 65 66 4e | 75 6d 20 28 70 72 65 66 |ord refN|um (pref|
|00003040| 20 70 62 20 3a 48 50 61 | 72 61 6d 42 6c 6f 63 6b | pb :HPa|ramBlock|
|00003050| 52 65 63 2e 69 6f 52 65 | 66 4e 75 6d 29 29 29 29 |Rec.ioRe|fNum))))|
|00003060| 29 0d 0d 28 64 65 66 74 | 72 61 70 2d 4e 6f 74 49 |)..(deft|rap-NotI|
|00003070| 6e 52 4f 4d 20 5f 48 44 | 65 6c 65 74 65 20 3a 4f |nROM _HD|elete :O|
|00003080| 53 45 72 72 20 28 28 76 | 52 65 66 4e 75 6d 20 3a |SErr ((v|RefNum :|
|00003090| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 20 |signed-i|nteger) |
|000030a0| 28 64 69 72 49 44 20 3a | 73 69 67 6e 65 64 2d 6c |(dirID :|signed-l|
|000030b0| 6f 6e 67 29 20 28 66 69 | 6c 65 4e 61 6d 65 20 28 |ong) (fi|leName (|
|000030c0| 3a 73 74 72 69 6e 67 20 | 32 35 35 29 29 29 0d 20 |:string |255))). |
|000030d0| 20 28 72 6c 65 74 20 28 | 28 70 62 20 3a 48 50 61 | (rlet (|(pb :HPa|
|000030e0| 72 61 6d 42 6c 6f 63 6b | 52 65 63 20 0d 20 20 20 |ramBlock|Rec .   |
|000030f0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6f 4e 61 6d |        |  :ioNam|
|00003100| 65 50 74 72 20 66 69 6c | 65 4e 61 6d 65 0d 20 20 |ePtr fil|eName.  |
|00003110| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 56 52 |        |   :ioVR|
|00003120| 65 66 4e 75 6d 20 76 52 | 65 66 4e 75 6d 0d 20 20 |efNum vR|efNum.  |
|00003130| 20 20 20 20 20 20 20 20 | 20 20 20 3a 69 6f 44 69 |        |   :ioDi|
|00003140| 72 49 44 20 20 20 64 69 | 72 49 44 29 29 0d 20 20 |rID   di|rID)).  |
|00003150| 20 20 28 23 5f 50 42 48 | 44 65 6c 65 74 65 20 70 |  (#_PBH|Delete p|
|00003160| 62 29 29 29 0d 0d 28 64 | 65 66 74 72 61 70 2d 4e |b)))..(d|eftrap-N|
|00003170| 6f 74 49 6e 52 4f 4d 20 | 5f 48 53 65 74 46 6c 6f |otInROM |_HSetFlo|
|00003180| 63 6b 20 3a 4f 53 45 72 | 72 20 28 28 76 52 65 66 |ck :OSEr|r ((vRef|
|00003190| 4e 75 6d 20 3a 73 69 67 | 6e 65 64 2d 69 6e 74 65 |Num :sig|ned-inte|
|000031a0| 67 65 72 29 20 28 64 69 | 72 49 44 20 3a 73 69 67 |ger) (di|rID :sig|
|000031b0| 6e 65 64 2d 6c 6f 6e 67 | 29 20 28 66 69 6c 65 4e |ned-long|) (fileN|
|000031c0| 61 6d 65 20 28 3a 73 74 | 72 69 6e 67 20 32 35 35 |ame (:st|ring 255|
|000031d0| 29 29 29 0d 20 20 28 72 | 6c 65 74 20 28 28 70 62 |))).  (r|let ((pb|
|000031e0| 20 3a 48 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 | :HParam|BlockRec|
|000031f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 69 |.       |      :i|
|00003200| 6f 4e 61 6d 65 50 74 72 | 20 66 69 6c 65 4e 61 6d |oNamePtr| fileNam|
|00003210| 65 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |e.      |       :|
|00003220| 69 6f 56 52 65 66 4e 75 | 6d 20 76 52 65 66 4e 75 |ioVRefNu|m vRefNu|
|00003230| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |m.      |       :|
|00003240| 69 6f 44 69 72 49 44 20 | 20 20 64 69 72 49 44 29 |ioDirID |  dirID)|
|00003250| 29 0d 20 20 20 20 28 23 | 5f 50 42 48 53 65 74 46 |).    (#|_PBHSetF|
|00003260| 6c 6f 63 6b 20 70 62 29 | 29 29 0d 0d 28 64 65 66 |lock pb)|))..(def|
|00003270| 74 72 61 70 2d 4e 6f 74 | 49 6e 52 4f 4d 20 5f 48 |trap-Not|InROM _H|
|00003280| 52 73 74 46 6c 6f 63 6b | 20 3a 4f 53 45 72 72 20 |RstFlock| :OSErr |
|00003290| 28 28 76 52 65 66 4e 75 | 6d 20 3a 73 69 67 6e 65 |((vRefNu|m :signe|
|000032a0| 64 2d 69 6e 74 65 67 65 | 72 29 20 28 64 69 72 49 |d-intege|r) (dirI|
|000032b0| 44 20 3a 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 29 20 |D :signe|d-long) |
|000032c0| 28 66 69 6c 65 4e 61 6d | 65 20 28 3a 73 74 72 69 |(fileNam|e (:stri|
|000032d0| 6e 67 20 32 35 35 29 29 | 29 0d 20 20 28 72 6c 65 |ng 255))|).  (rle|
|000032e0| 74 20 28 28 70 62 20 3a | 48 50 61 72 61 6d 42 6c |t ((pb :|HParamBl|
|000032f0| 6f 63 6b 52 65 63 0d 20 | 20 20 20 20 20 20 20 20 |ockRec. |        |
|00003300| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 66 |    :ioN|amePtr f|
|00003310| 69 6c 65 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |ileName.|        |
|00003320| 20 20 20 20 20 3a 69 6f | 56 52 65 66 4e 75 6d 20 |     :io|VRefNum |
|00003330| 76 52 65 66 4e 75 6d 0d | 20 20 20 20 20 20 20 20 |vRefNum.|        |
|00003340| 20 20 20 20 20 3a 69 6f | 44 69 72 49 44 20 20 20 |     :io|DirID   |
|00003350| 64 69 72 49 44 29 29 0d | 20 20 20 20 28 23 5f 50 |dirID)).|    (#_P|
|00003360| 42 48 52 73 74 46 6c 6f | 63 6b 20 70 62 29 29 29 |BHRstFlo|ck pb)))|
|00003370| 0d 0d 28 64 65 66 74 72 | 61 70 2d 4e 6f 74 49 6e |..(deftr|ap-NotIn|
|00003380| 52 4f 4d 20 5f 48 52 65 | 6e 61 6d 65 20 3a 4f 53 |ROM _HRe|name :OS|
|00003390| 45 72 72 20 28 28 76 52 | 65 66 4e 75 6d 20 3a 73 |Err ((vR|efNum :s|
|000033a0| 69 67 6e 65 64 2d 69 6e | 74 65 67 65 72 29 20 28 |igned-in|teger) (|
|000033b0| 64 69 72 49 44 20 3a 73 | 69 67 6e 65 64 2d 6c 6f |dirID :s|igned-lo|
|000033c0| 6e 67 29 20 28 6f 6c 64 | 4e 61 6d 65 20 28 3a 73 |ng) (old|Name (:s|
|000033d0| 74 72 69 6e 67 20 32 35 | 35 29 29 20 28 6e 65 77 |tring 25|5)) (new|
|000033e0| 4e 61 6d 65 20 28 3a 73 | 74 72 69 6e 67 20 32 35 |Name (:s|tring 25|
|000033f0| 35 29 29 29 0d 20 20 28 | 72 6c 65 74 20 28 28 70 |5))).  (|rlet ((p|
|00003400| 62 20 3a 48 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |b :HPara|mBlockRe|
|00003410| 63 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |c.      |       :|
|00003420| 69 6f 4e 61 6d 65 50 74 | 72 20 6f 6c 64 4e 61 6d |ioNamePt|r oldNam|
|00003430| 65 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |e.      |       :|
|00003440| 69 6f 56 52 65 66 4e 75 | 6d 20 76 52 65 66 4e 75 |ioVRefNu|m vRefNu|
|00003450| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |m.      |       :|
|00003460| 69 6f 4d 69 73 63 20 20 | 20 20 6e 65 77 4e 61 6d |ioMisc  |  newNam|
|00003470| 65 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |e.      |       :|
|00003480| 69 6f 44 69 72 49 44 20 | 20 20 64 69 72 49 44 29 |ioDirID |  dirID)|
|00003490| 29 0d 20 20 20 20 28 23 | 5f 50 42 48 52 65 6e 61 |).    (#|_PBHRena|
|000034a0| 6d 65 20 70 62 29 29 29 | 0d 0d 28 64 65 66 74 72 |me pb)))|..(deftr|
|000034b0| 61 70 2d 4e 6f 74 49 6e | 52 4f 4d 20 5f 48 47 65 |ap-NotIn|ROM _HGe|
|000034c0| 74 46 49 6e 66 6f 20 3a | 4f 53 45 72 72 20 28 28 |tFInfo :|OSErr ((|
|000034d0| 76 52 65 66 4e 75 6d 20 | 3a 73 69 67 6e 65 64 2d |vRefNum |:signed-|
|000034e0| 69 6e 74 65 67 65 72 29 | 20 28 64 69 72 49 44 20 |integer)| (dirID |
|000034f0| 3a 73 69 67 6e 65 64 2d | 6c 6f 6e 67 29 20 28 66 |:signed-|long) (f|
|00003500| 69 6c 65 4e 61 6d 65 20 | 28 3a 73 74 72 69 6e 67 |ileName |(:string|
|00003510| 20 32 35 35 29 29 20 28 | 66 6e 64 72 49 6e 66 6f | 255)) (|fndrInfo|
|00003520| 20 28 3a 70 6f 69 6e 74 | 65 72 20 3a 46 49 6e 66 | (:point|er :FInf|
|00003530| 6f 29 29 29 0d 20 20 28 | 72 6c 65 74 20 28 28 70 |o))).  (|rlet ((p|
|00003540| 62 20 3a 48 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |b :HPara|mBlockRe|
|00003550| 63 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |c.      |       :|
|00003560| 69 6f 4e 61 6d 65 50 74 | 72 20 20 20 66 69 6c 65 |ioNamePt|r   file|
|00003570| 4e 61 6d 65 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Name.   |        |
|00003580| 20 20 3a 69 6f 56 52 65 | 66 4e 75 6d 20 20 20 76 |  :ioVRe|fNum   v|
|00003590| 52 65 66 4e 75 6d 0d 20 | 20 20 20 20 20 20 20 20 |RefNum. |        |
|000035a0| 20 20 20 20 3a 69 6f 46 | 44 69 72 49 6e 64 65 78 |    :ioF|DirIndex|
|000035b0| 20 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0.     |        |
|000035c0| 3a 69 6f 44 69 72 49 44 | 20 20 20 20 20 64 69 72 |:ioDirID|     dir|
|000035d0| 49 44 29 29 0d 20 20 20 | 20 28 70 72 6f 67 31 0d |ID)).   | (prog1.|
|000035e0| 20 20 20 20 20 20 28 23 | 5f 50 42 48 47 65 74 46 |      (#|_PBHGetF|
|000035f0| 49 6e 66 6f 20 70 62 29 | 0d 20 20 20 20 20 20 28 |Info pb)|.      (|
|00003600| 23 5f 42 6c 6f 63 6b 4d | 6f 76 65 20 28 70 72 65 |#_BlockM|ove (pre|
|00003610| 66 20 70 62 20 3a 48 50 | 61 72 61 6d 42 6c 6f 63 |f pb :HP|aramBloc|
|00003620| 6b 52 65 63 2e 69 6f 46 | 6c 46 6e 64 72 49 6e 66 |kRec.ioF|lFndrInf|
|00003630| 6f 29 20 66 6e 64 72 49 | 6e 66 6f 20 23 2e 28 63 |o) fndrI|nfo #.(c|
|00003640| 63 6c 3a 3a 72 65 63 6f | 72 64 2d 66 69 65 6c 64 |cl::reco|rd-field|
|00003650| 2d 6c 65 6e 67 74 68 20 | 3a 46 49 6e 66 6f 29 29 |-length |:FInfo))|
|00003660| 29 29 29 0d 0d 28 64 65 | 66 74 72 61 70 2d 4e 6f |)))..(de|ftrap-No|
|00003670| 74 49 6e 52 4f 4d 20 5f | 48 53 65 74 46 49 6e 66 |tInROM _|HSetFInf|
|00003680| 6f 20 3a 4f 53 45 72 72 | 20 28 28 76 52 65 66 4e |o :OSErr| ((vRefN|
|00003690| 75 6d 20 3a 73 69 67 6e | 65 64 2d 69 6e 74 65 67 |um :sign|ed-integ|
|000036a0| 65 72 29 20 28 64 69 72 | 49 44 20 3a 73 69 67 6e |er) (dir|ID :sign|
|000036b0| 65 64 2d 6c 6f 6e 67 29 | 20 28 66 69 6c 65 4e 61 |ed-long)| (fileNa|
|000036c0| 6d 65 20 28 3a 73 74 72 | 69 6e 67 20 32 35 35 29 |me (:str|ing 255)|
|000036d0| 29 20 28 66 6e 64 72 49 | 6e 66 6f 20 3a 46 49 6e |) (fndrI|nfo :FIn|
|000036e0| 66 6f 29 29 0d 20 20 28 | 72 6c 65 74 20 28 28 70 |fo)).  (|rlet ((p|
|000036f0| 62 20 3a 48 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |b :HPara|mBlockRe|
|00003700| 63 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |c.      |       :|
|00003710| 69 6f 4e 61 6d 65 50 74 | 72 20 20 20 66 69 6c 65 |ioNamePt|r   file|
|00003720| 4e 61 6d 65 0d 20 20 20 | 20 20 20 20 20 20 20 20 |Name.   |        |
|00003730| 20 20 3a 69 6f 56 52 65 | 66 4e 75 6d 20 20 20 76 |  :ioVRe|fNum   v|
|00003740| 52 65 66 4e 75 6d 0d 20 | 20 20 20 20 20 20 20 20 |RefNum. |        |
|00003750| 20 20 20 20 3a 69 6f 46 | 44 69 72 49 6e 64 65 78 |    :ioF|DirIndex|
|00003760| 20 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0.     |        |
|00003770| 3a 69 6f 44 69 72 49 44 | 20 20 20 20 20 64 69 72 |:ioDirID|     dir|
|00003780| 49 44 29 29 0d 20 20 20 | 20 28 77 68 65 6e 20 28 |ID)).   | (when (|
|00003790| 7a 65 72 6f 70 20 28 23 | 5f 50 42 48 47 65 74 46 |zerop (#|_PBHGetF|
|000037a0| 49 6e 66 6f 20 70 62 29 | 29 0d 20 20 20 20 20 20 |Info pb)|).      |
|000037b0| 28 73 65 74 66 20 28 70 | 72 65 66 20 70 62 20 3a |(setf (p|ref pb :|
|000037c0| 48 50 61 72 61 6d 42 6c | 6f 63 6b 52 65 63 2e 69 |HParamBl|ockRec.i|
|000037d0| 6f 46 6c 46 6e 64 72 49 | 6e 66 6f 29 20 66 6e 64 |oFlFndrI|nfo) fnd|
|000037e0| 72 49 6e 66 6f 29 0d 20 | 20 20 20 20 20 3b 50 42 |rInfo). |     ;PB|
|000037f0| 48 47 65 74 46 49 6e 66 | 6f 20 74 72 61 73 68 65 |HGetFInf|o trashe|
|00003800| 73 20 74 68 65 20 69 6f | 44 69 72 49 44 20 66 69 |s the io|DirID fi|
|00003810| 65 6c 64 20 2d 20 73 6f | 20 77 65 20 68 61 76 65 |eld - so| we have|
|00003820| 20 74 6f 20 72 65 73 65 | 74 20 69 74 0d 20 20 20 | to rese|t it.   |
|00003830| 20 20 20 28 73 65 74 66 | 20 28 70 72 65 66 20 70 |   (setf| (pref p|
|00003840| 62 20 3a 48 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |b :HPara|mBlockRe|
|00003850| 63 2e 69 6f 44 69 72 49 | 44 29 20 64 69 72 49 44 |c.ioDirI|D) dirID|
|00003860| 29 0d 20 20 20 20 20 20 | 28 23 5f 50 42 48 53 65 |).      |(#_PBHSe|
|00003870| 74 46 49 6e 66 6f 20 70 | 62 29 29 0d 20 20 20 20 |tFInfo p|b)).    |
|00003880| 28 70 72 65 66 20 70 62 | 20 3a 48 50 61 72 61 6d |(pref pb| :HParam|
|00003890| 42 6c 6f 63 6b 52 65 63 | 2e 69 6f 52 65 73 75 6c |BlockRec|.ioResul|
|000038a0| 74 29 29 29 0d 0d 28 64 | 65 66 74 72 61 70 2d 4e |t)))..(d|eftrap-N|
|000038b0| 6f 74 49 6e 52 4f 4d 20 | 5f 48 47 65 74 56 6f 6c |otInROM |_HGetVol|
|000038c0| 20 3a 4f 53 45 72 72 20 | 28 28 76 6f 6c 4e 61 6d | :OSErr |((volNam|
|000038d0| 65 20 28 3a 70 6f 69 6e | 74 65 72 20 28 3a 73 74 |e (:poin|ter (:st|
|000038e0| 72 69 6e 67 20 32 35 35 | 29 29 29 20 28 76 52 65 |ring 255|))) (vRe|
|000038f0| 66 4e 75 6d 20 28 3a 70 | 6f 69 6e 74 65 72 20 3a |fNum (:p|ointer :|
|00003900| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 29 |signed-i|nteger))|
|00003910| 20 28 64 69 72 49 44 20 | 28 3a 70 6f 69 6e 74 65 | (dirID |(:pointe|
|00003920| 72 20 3a 73 69 67 6e 65 | 64 2d 6c 6f 6e 67 29 29 |r :signe|d-long))|
|00003930| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 70 62 20 3a |).  (rle|t ((pb :|
|00003940| 57 44 50 42 52 65 63 0d | 20 20 20 20 20 20 20 20 |WDPBRec.|        |
|00003950| 20 20 20 20 20 3a 69 6f | 4e 61 6d 65 50 74 72 20 |     :io|NamePtr |
|00003960| 76 6f 6c 4e 61 6d 65 29 | 29 0d 20 20 20 20 28 70 |volName)|).    (p|
|00003970| 72 6f 67 31 0d 20 20 20 | 20 20 20 28 23 5f 50 42 |rog1.   |   (#_PB|
|00003980| 48 47 65 74 56 6f 6c 20 | 70 62 29 0d 20 20 20 20 |HGetVol |pb).    |
|00003990| 20 20 28 25 70 75 74 2d | 77 6f 72 64 20 76 52 65 |  (%put-|word vRe|
|000039a0| 66 4e 75 6d 20 28 70 72 | 65 66 20 70 62 20 3a 57 |fNum (pr|ef pb :W|
|000039b0| 44 50 42 52 65 63 2e 69 | 6f 57 44 56 52 65 66 4e |DPBRec.i|oWDVRefN|
|000039c0| 75 6d 29 29 0d 20 20 20 | 20 20 20 28 25 70 75 74 |um)).   |   (%put|
|000039d0| 2d 6c 6f 6e 67 20 64 69 | 72 49 44 20 20 20 28 70 |-long di|rID   (p|
|000039e0| 72 65 66 20 70 62 20 3a | 57 44 50 42 52 65 63 2e |ref pb :|WDPBRec.|
|000039f0| 69 6f 57 44 44 69 72 49 | 44 29 29 29 29 29 0d 0d |ioWDDirI|D)))))..|
|00003a00| 3b 48 53 65 74 56 6f 6c | 20 2d 20 6f 6d 69 74 74 |;HSetVol| - omitt|
|00003a10| 65 64 20 66 72 6f 6d 20 | 49 4d 20 56 49 20 2d 20 |ed from |IM VI - |
|00003a20| 73 65 65 20 54 4e 23 31 | 34 30 20 26 20 49 4d 20 |see TN#1|40 & IM |
|00003a30| 56 49 20 70 2e 20 32 35 | 2d 37 0d 0d 3b 3b 3b 3b |VI p. 25|-7..;;;;|
|00003a40| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003a50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003a60| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003a70| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003a80| 3b 3b 0d 3b 3b 3b 20 48 | 69 67 68 20 4c 65 76 65 |;;.;;; H|igh Leve|
|00003a90| 6c 20 44 61 74 61 20 46 | 6f 72 6b 20 4f 70 65 6e |l Data F|ork Open|
|00003aa0| 69 6e 67 20 52 6f 75 74 | 69 6e 65 73 20 2d 20 49 |ing Rout|ines - I|
|00003ab0| 4d 20 56 49 20 70 2e 20 | 32 35 2e 33 34 0d 0d 28 |M VI p. |25.34..(|
|00003ac0| 64 65 66 74 72 61 70 2d | 4e 6f 74 49 6e 52 4f 4d |deftrap-|NotInROM|
|00003ad0| 20 5f 48 4f 70 65 6e 44 | 46 20 3a 4f 53 45 72 72 | _HOpenD|F :OSErr|
|00003ae0| 20 28 28 76 52 65 66 4e | 75 6d 20 3a 73 69 67 6e | ((vRefN|um :sign|
|00003af0| 65 64 2d 69 6e 74 65 67 | 65 72 29 20 28 64 69 72 |ed-integ|er) (dir|
|00003b00| 49 44 20 3a 73 69 67 6e | 65 64 2d 6c 6f 6e 67 29 |ID :sign|ed-long)|
|00003b10| 20 28 66 69 6c 65 4e 61 | 6d 65 20 28 3a 73 74 72 | (fileNa|me (:str|
|00003b20| 69 6e 67 20 32 35 35 29 | 29 20 28 70 65 72 6d 69 |ing 255)|) (permi|
|00003b30| 73 73 69 6f 6e 20 3a 73 | 69 67 6e 65 64 2d 62 79 |ssion :s|igned-by|
|00003b40| 74 65 29 20 28 72 65 66 | 4e 75 6d 20 28 3a 70 6f |te) (ref|Num (:po|
|00003b50| 69 6e 74 65 72 20 3a 73 | 69 67 6e 65 64 2d 69 6e |inter :s|igned-in|
|00003b60| 74 65 67 65 72 29 29 29 | 0d 20 20 28 72 6c 65 74 |teger)))|.  (rlet|
|00003b70| 20 28 28 70 62 20 3a 48 | 50 61 72 61 6d 42 6c 6f | ((pb :H|ParamBlo|
|00003b80| 63 6b 52 65 63 20 0d 20 | 20 20 20 20 20 20 20 20 |ckRec . |        |
|00003b90| 20 20 20 20 3a 69 6f 4e | 61 6d 65 50 74 72 20 66 |    :ioN|amePtr f|
|00003ba0| 69 6c 65 4e 61 6d 65 0d | 20 20 20 20 20 20 20 20 |ileName.|        |
|00003bb0| 20 20 20 20 20 3a 69 6f | 56 52 65 66 4e 75 6d 20 |     :io|VRefNum |
|00003bc0| 76 52 65 66 4e 75 6d 0d | 20 20 20 20 20 20 20 20 |vRefNum.|        |
|00003bd0| 20 20 20 20 20 3a 69 6f | 50 65 72 6d 73 73 6e 20 |     :io|Permssn |
|00003be0| 70 65 72 6d 69 73 73 69 | 6f 6e 0d 20 20 20 20 20 |permissi|on.     |
|00003bf0| 20 20 20 20 20 20 20 20 | 3a 69 6f 44 69 72 49 44 |        |:ioDirID|
|00003c00| 20 64 69 72 49 44 29 29 | 0d 20 20 20 20 28 70 72 | dirID))|.    (pr|
|00003c10| 6f 67 31 0d 20 20 20 20 | 20 20 28 23 5f 50 42 48 |og1.    |  (#_PBH|
|00003c20| 4f 70 65 6e 44 46 20 70 | 62 29 0d 20 20 20 20 20 |OpenDF p|b).     |
|00003c30| 20 28 25 70 75 74 2d 77 | 6f 72 64 20 72 65 66 4e | (%put-w|ord refN|
|00003c40| 75 6d 20 28 70 72 65 66 | 20 70 62 20 3a 48 50 61 |um (pref| pb :HPa|
|00003c50| 72 61 6d 42 6c 6f 63 6b | 52 65 63 2e 69 6f 52 65 |ramBlock|Rec.ioRe|
|00003c60| 66 4e 75 6d 29 29 29 29 | 29 0d 0d 28 64 65 66 74 |fNum))))|)..(deft|
|00003c70| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 5f 4f 70 |rap-NotI|nROM _Op|
|00003c80| 65 6e 44 46 20 3a 4f 53 | 45 72 72 20 28 28 66 69 |enDF :OS|Err ((fi|
|00003c90| 6c 65 4e 61 6d 65 20 28 | 3a 73 74 72 69 6e 67 20 |leName (|:string |
|00003ca0| 32 35 35 29 29 20 28 76 | 52 65 66 4e 75 6d 20 3a |255)) (v|RefNum :|
|00003cb0| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 29 20 |signed-i|nteger) |
|00003cc0| 28 72 65 66 4e 75 6d 20 | 28 3a 70 6f 69 6e 74 65 |(refNum |(:pointe|
|00003cd0| 72 20 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 |r :signe|d-intege|
|00003ce0| 72 29 29 29 0d 20 20 28 | 72 6c 65 74 20 28 28 70 |r))).  (|rlet ((p|
|00003cf0| 62 20 3a 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 |b :Param|BlockRec|
|00003d00| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | .      |       :|
|00003d10| 69 6f 4e 61 6d 65 50 74 | 72 20 66 69 6c 65 4e 61 |ioNamePt|r fileNa|
|00003d20| 6d 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |me.     |        |
|00003d30| 3a 69 6f 56 52 65 66 4e | 75 6d 20 76 52 65 66 4e |:ioVRefN|um vRefN|
|00003d40| 75 6d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |um.     |        |
|00003d50| 3a 69 6f 50 65 72 6d 73 | 73 6e 20 23 24 66 73 43 |:ioPerms|sn #$fsC|
|00003d60| 75 72 50 65 72 6d 29 29 | 0d 20 20 20 20 28 70 72 |urPerm))|.    (pr|
|00003d70| 6f 67 31 0d 20 20 20 20 | 20 20 28 23 5f 50 42 4f |og1.    |  (#_PBO|
|00003d80| 70 65 6e 44 46 20 70 62 | 29 0d 20 20 20 20 20 20 |penDF pb|).      |
|00003d90| 28 25 70 75 74 2d 77 6f | 72 64 20 72 65 66 4e 75 |(%put-wo|rd refNu|
|00003da0| 6d 20 28 70 72 65 66 20 | 70 62 20 3a 50 61 72 61 |m (pref |pb :Para|
|00003db0| 6d 42 6c 6f 63 6b 52 65 | 63 2e 69 6f 52 65 66 4e |mBlockRe|c.ioRefN|
|00003dc0| 75 6d 29 29 29 29 29 0d | 0d 3b 3b 3b 3b 3b 3b 3b |um))))).|.;;;;;;;|
|00003dd0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003de0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003df0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003e00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|00003e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e80| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00003e90| 70 73 29 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ps).;;;;|;;;;;;;;|
|00003ea0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003eb0| 0b 2b 46 69 6c 65 73 2e | 6c 69 73 70 02 00 00 00 |.+Files.|lisp....|
|00003ec0| 54 45 58 54 43 43 4c 32 | 01 00 00 3c 00 00 00 00 |TEXTCCL2|...<....|
|00003ed0| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 3c 00 00 |..TEXTCC|L2...<..|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 a4 9f 91 ed 00 00 | 3d 90 00 00 01 ba 39 31 |........|=.....91|
|00003f00| 20 4e 6f 72 74 68 77 65 | 73 74 65 72 6e 20 55 6e | Northwe|stern Un|
|00003f10| 69 76 65 72 73 69 74 79 | 20 49 6e 73 74 69 74 75 |iversity| Institu|
|00003f20| 74 65 20 66 6f 72 20 74 | 68 65 20 4c 65 61 72 6e |te for t|he Learn|
|00003f30| 69 6e 67 20 53 63 69 65 | 6e 63 65 73 0d 3b 3b 20 |ing Scie|nces.;; |
|00003f40| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00003f50| 76 65 64 0d 3b 3b 0d 3b | 3b 20 61 75 74 68 6f 72 |ved.;;.;|; author|
|00003f60| 73 3a 20 54 61 6d 61 72 | 20 4f 66 66 65 72 2d 59 |s: Tamar| Offer-Y|
|00003f70| 65 68 6f 73 68 75 61 0d | 3b 3b 20 20 20 20 20 20 |ehoshua.|;;      |
|00003f80| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00003f90| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|00003fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fb0| 00 00 00 00 00 06 00 08 | 00 7c 01 a1 03 4b 03 c0 |........|.|...K..|
|00003fc0| 00 7c 01 a1 03 4b 03 c0 | 00 00 00 00 00 00 00 00 |.|...K..|........|
|00003fd0| 00 00 00 00 00 00 36 e3 | 01 00 00 00 00 0a 39 05 |......6.|......9.|
|00003fe0| 07 43 6f 75 72 69 65 72 | 00 00 01 00 00 00 01 68 |.Courier|.......h|
|00003ff0| 00 00 00 68 00 00 00 52 | 00 c8 22 ec 09 8e 00 00 |...h...R|..".....|
|00004000| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00004010| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|00004020| 00 00 00 03 ff ff 00 00 | 00 5a 00 00 00 00 03 ed |........|.Z......|
|00004030| ff ff 00 00 00 0e 00 c9 | 20 a8 00 00 00 00 00 00 |........| .......|
|00004040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+